Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv4947

Modified Files: los-closette.lisp Log Message: Have find-class compiler-macro accept optional environment arg. Take note that character class contains base-char and extended-char.

--- /project/movitz/cvsroot/movitz/losp/muerte/los-closette.lisp 2005/08/21 17:55:54 1.35 +++ /project/movitz/cvsroot/movitz/losp/muerte/los-closette.lisp 2006/04/10 11:52:21 1.36 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.35 2005/08/21 17:55:54 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.36 2006/04/10 11:52:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -99,6 +99,10 @@ (defmacro push-on-end (value location) `(setf ,location (nconc ,location (list ,value))))

+ +(defmacro define-method-combination (name &rest options) + (declare (ignore options)) + (warn "Method-combinations not implemented: ~S" name)) ;;;

@@ -210,7 +214,8 @@

;;;

-(defun find-class (symbol &optional (errorp t)) +(defun find-class (symbol &optional (errorp t) environment) + (declare (ignore environment)) (let ((class (gethash symbol *class-table*))) (if (and (null class) errorp) (error "No class named ~S." symbol) @@ -951,7 +956,9 @@ (defclass symbol (t) () (:metaclass built-in-class)) (defclass sequence (t) () (:metaclass built-in-class)) (defclass array (t) () (:metaclass built-in-class)) -(defclass character (t) () (:metaclass built-in-class)) +(defclass character (t) () + (:metaclass built-in-class) + (:plist (:subtypes (base-char extended-char)))) (defclass list (sequence) () (:metaclass built-in-class)) (defclass null (symbol list) () (:metaclass built-in-class)) (defclass cons (list) () (:metaclass built-in-class))