From: Kevin R. <kev...@us...> - 2004-06-10 03:52:19
|
Update of /cvsroot/portableaserve/portableaserve/acl-compat/lispworks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28845/acl-compat/lispworks Modified Files: acl-excl.lisp acl-socket.lisp Log Message: Commit changes from Nick Levine for Lispworks Index: acl-excl.lisp =================================================================== RCS file: /cvsroot/portableaserve/portableaserve/acl-compat/lispworks/acl-excl.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -w -r1.5 -r1.6 --- acl-excl.lisp 27 Jan 2004 10:53:45 -0000 1.5 +++ acl-excl.lisp 10 Jun 2004 03:52:10 -0000 1.6 @@ -37,5 +37,15 @@ do (format stream "~A=~A~%" (car var) (cdr var))) |# +;; NDL 2004-06-04 -- Missing definition & a package, to allow LispWorks to load webactions + +(defun cl-internal-real-time () + (round (/ (get-internal-real-time) 1000))) + +(defpackage :excl + (:import-from #:acl-compat.excl + #:filesys-type + #:cl-internal-real-time)) + (provide 'acl-excl) Index: acl-socket.lisp =================================================================== RCS file: /cvsroot/portableaserve/portableaserve/acl-compat/lispworks/acl-socket.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -w -r1.3 -r1.4 --- acl-socket.lisp 28 Jan 2004 11:50:20 -0000 1.3 +++ acl-socket.lisp 10 Jun 2004 03:52:10 -0000 1.4 @@ -116,6 +116,10 @@ (defmethod gray-stream:stream-read-sequence ((stream input-binary-socket-stream) sequence start end) (stream::read-elements stream sequence start end (%reader-function-for-sequence sequence))) +;; NDL 2004-06-06 -- without this, emit-clp-entity tries writing a string down a binary stream, and LW barfs +(defmethod gray-stream:stream-write-sequence ((stream output-binary-socket-stream) (sequence string) start end) + (write-string sequence stream :start start :end end)) + ;; ACL Gray-Streams Enhancment Generic Functions (defmethod stream-input-fn ((stream input-binary-socket-stream)) |