From ctian at common-lisp.net Wed Nov 26 19:29:33 2008 From: ctian at common-lisp.net (Chun Tian (binghe)) Date: Wed, 26 Nov 2008 19:29:33 +0000 Subject: [cl-xml-cvs] r18 - in trunk: code code/base code/xparser code/xquerydatamodel documentation Message-ID: Author: ctian Date: Wed Nov 26 19:29:33 2008 New Revision: 18 Log: Clean DS_Store files from repository ^_^ Removed: trunk/code/.DS_Store trunk/code/base/.DS_Store trunk/code/xparser/.DS_Store trunk/code/xquerydatamodel/.DS_Store trunk/documentation/.DS_Store From ctian at common-lisp.net Wed Nov 26 19:33:04 2008 From: ctian at common-lisp.net (Chun Tian (binghe)) Date: Wed, 26 Nov 2008 19:33:04 +0000 Subject: [cl-xml-cvs] r19 - trunk/code/atn-parser/clifs Message-ID: 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))