[cl-xml-cvs] r19 - trunk/code/atn-parser/clifs

[Chun Tian (binghe)]

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