Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24697
Modified Files: typep.lisp Log Message: Fixed deftype expander vs. CL package.
Date: Mon Dec 13 12:25:44 2004 Author: ffjeld
Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.39 movitz/losp/muerte/typep.lisp:1.40 --- movitz/losp/muerte/typep.lisp:1.39 Wed Nov 24 11:08:28 2004 +++ movitz/losp/muerte/typep.lisp Mon Dec 13 12:25:41 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.39 2004/11/24 10:08:28 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.40 2004/12/13 11:25:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -436,8 +436,9 @@ (format nil "~A-~A" 'deftype name))))) `(progn (eval-when (:compile-toplevel) - (unless (eq (symbol-package (cadr ',form)) (find-package :common-lisp)) - ,form) + (unless (find-symbol (symbol-name (cadr ',form)) :common-lisp) + #+ignore (eq (symbol-package (cadr ',form)) (find-package :common-lisp)) + (eval ',form)) (setf (gethash (translate-program ',name :cl :muerte.cl) *compiler-derived-typespecs*) (lambda ,lambda ,@body))