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))