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