Author: ctian Date: Wed Nov 26 19:33:04 2008 New Revision: 19 Log: trivial read-macro fixes for lispworks 5, let me do this before lost the access please Modified: trunk/code/atn-parser/clifs/inference-system-classes.lisp trunk/code/atn-parser/clifs/inference-units.lisp Modified: trunk/code/atn-parser/clifs/inference-system-classes.lisp ============================================================================== --- trunk/code/atn-parser/clifs/inference-system-classes.lisp (original) +++ trunk/code/atn-parser/clifs/inference-system-classes.lisp Wed Nov 26 19:33:04 2008 @@ -101,11 +101,11 @@ (setf (getf (system-plist system) indicator) value)) ;; wg. CL-Konformitaet -(defmethod documentation ((x inference-system) #-(or CMU LispWorks4 sbcl openmcl) &optional type) +(defmethod documentation ((x inference-system) #-(or CMU LispWorks sbcl openmcl) &optional type) (declare (ignore type)) (slot-value x 'doc)) -(defmethod (setf documentation) (doc (x inference-system) #-(or CMU LispWorks4 sbcl openmcl) &optional type) +(defmethod (setf documentation) (doc (x inference-system) #-(or CMU LispWorks sbcl openmcl) &optional type) (declare (ignore type)) (setf (slot-value x 'doc) doc)) Modified: trunk/code/atn-parser/clifs/inference-units.lisp ============================================================================== --- trunk/code/atn-parser/clifs/inference-units.lisp (original) +++ trunk/code/atn-parser/clifs/inference-units.lisp Wed Nov 26 19:33:04 2008 @@ -32,11 +32,11 @@ (documentation :accessor rule-documentation :initarg :documentation))) -(defmethod documentation ((x rule) #-(or CMU LispWorks4 sbcl openmcl) &optional doc-type) +(defmethod documentation ((x rule) #-(or CMU LispWorks sbcl openmcl) &optional doc-type) (declare (ignore doc-type)) (slot-value x 'documentation)) -(defmethod (setf documentation) (doc-string (x rule) #-(or CMU LispWorks4 sbcl openmcl) &optional doc-type) +(defmethod (setf documentation) (doc-string (x rule) #-(or CMU LispWorks sbcl openmcl) &optional doc-type) (declare (ignore doc-type)) (setf (slot-value x 'documentation) doc-string))