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

Modified Files:
	typep.lisp 
Log Message:
Don't try to mirror deftype of names in the common-lisp package on the
host side.

Date: Wed Jul 21 07:16:57 2004
Author: ffjeld

Index: movitz/losp/muerte/typep.lisp
diff -u movitz/losp/muerte/typep.lisp:1.29 movitz/losp/muerte/typep.lisp:1.30
--- movitz/losp/muerte/typep.lisp:1.29	Wed Jul 21 05:49:24 2004
+++ movitz/losp/muerte/typep.lisp	Wed Jul 21 07:16:57 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.29 2004/07/21 12:49:24 ffjeld Exp $
+;;;; $Id: typep.lisp,v 1.30 2004/07/21 14:16:57 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -426,7 +426,8 @@
   (let ((fname (intern (format nil "~A-~A" 'deftype name))))
     `(progn
        (eval-when (:compile-toplevel)
-	 ,form
+	 (unless (eq (symbol-package ',name) (find-package :common-lisp))
+	   ,form)
 	 (setf (gethash (translate-program ',name :cl :muerte.cl)
 			*compiler-derived-typespecs*)
 	   (lambda ,lambda , at body))