[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-serv19181

Modified Files:
	typep.lisp 
Log Message:
In the deftype expander, try to be a bit more clever about when to
avoid (cl:deftype cl:whatever ..). The previous detection code
apparently didn't work under sbcl or cmucl.

Date: Wed Jul 28 05:30:35 2004
Author: ffjeld

Index: movitz/losp/muerte/typep.lisp
diff -u movitz/losp/muerte/typep.lisp:1.33 movitz/losp/muerte/typep.lisp:1.34
--- movitz/losp/muerte/typep.lisp:1.33	Tue Jul 27 02:22:21 2004
+++ movitz/losp/muerte/typep.lisp	Wed Jul 28 05:30:34 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.33 2004/07/27 09:22:21 ffjeld Exp $
+;;;; $Id: typep.lisp,v 1.34 2004/07/28 12:30:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -429,7 +429,7 @@
   (let ((fname (intern (format nil "~A-~A" 'deftype name))))
     `(progn
        (eval-when (:compile-toplevel)
-	 (unless (eq (symbol-package ',name) (find-package :common-lisp))
+	 (unless (eq (symbol-package (car ',form)) (find-package :common-lisp))
 	   ,form)
 	 (setf (gethash (translate-program ',name :cl :muerte.cl)
 			*compiler-derived-typespecs*)