[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp

[Frode Vatvedt Fjeld]

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 , at body))