Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11200
Modified Files: typep.lisp Log Message: In the deftype expander, have the type declaration be mirrored on the host side.
Date: Wed Jul 21 05:28:15 2004 Author: ffjeld
Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.27 movitz/losp/muerte/typep.lisp:1.28 --- movitz/losp/muerte/typep.lisp:1.27 Sun Jul 18 17:54:34 2004 +++ movitz/losp/muerte/typep.lisp Wed Jul 21 05:28:15 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.27 2004/07/19 00:54:34 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.28 2004/07/21 12:28:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -426,10 +426,11 @@ (list 'typep x '',tname)) (defun ,fname ,lambda ,@body)))))
-(defmacro deftype (name lambda &body body) +(defmacro deftype (&whole form name lambda &body body) (let ((fname (intern (format nil "~A-~A" 'deftype name)))) `(progn (eval-when (:compile-toplevel) + ,form (setf (gethash (translate-program ',name :cl :muerte.cl) *compiler-derived-typespecs*) (lambda ,lambda ,@body))