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