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