Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3042
Modified Files: typep.lisp Log Message: Fixed buglet in typep compiler-macro.
Date: Wed Jun 9 10:21:47 2004 Author: ffjeld
Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.13 movitz/losp/muerte/typep.lisp:1.14 --- movitz/losp/muerte/typep.lisp:1.13 Wed Jun 2 16:48:45 2004 +++ movitz/losp/muerte/typep.lisp Wed Jun 9 10:21:47 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.13 2004/06/02 23:48:45 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.14 2004/06/09 17:21:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -371,7 +371,7 @@ `(let ((typep-object ,object)) (,(car type) ,@(loop for subtype in (cdr type) - collect `(typep ,object ',subtype))))) + collect `(typep typep-object ',subtype))))) (t (warn "compiling typep ~A" type))))))) form)))))
@@ -403,7 +403,8 @@ (let ((fname (intern (format nil "~A-~A" 'deftype name)))) `(progn (eval-when (:compile-toplevel) - (setf (gethash ',name *compiler-derived-typespecs*) + (setf (gethash (translate-program ',name :cl :muerte.cl) + *compiler-derived-typespecs*) (lambda ,lambda ,@body)) (setf (gethash (intern ,(symbol-name name)) *derived-typespecs*)