X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhost-alieneval.lisp;h=5e1f3e5c041779335612f09f7229b4095395d8ca;hb=a1a2c079c7654defb618baad0dddcf0eaf2ce64f;hp=525a451f20959b26bf0f57c993e227d7b995e75c;hpb=d5aafdd8ab6387e12bac187048ed322bc96fb79a;p=sbcl.git

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 525a451..5e1f3e5 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -11,6 +11,8 @@
 ;;;; files for more information.
 
 (in-package "SB!ALIEN")
+
+(/show0 "host-alieneval.lisp 15")
 
 ;;;; utility functions
 
@@ -30,7 +32,7 @@
 
 (eval-when (:compile-toplevel :execute :load-toplevel)
 
-(defstruct alien-type-class
+(defstruct (alien-type-class (:copier nil))
   (name nil :type symbol)
   (include nil :type (or null alien-type-class))
   (unparse nil :type (or null function))
@@ -109,8 +111,8 @@
 			(:constructor
 			 ,(symbolicate "MAKE-" defstruct-name)
 			 (&key class bits alignment
-			       ,@(mapcar #'(lambda (x)
-					     (if (atom x) x (car x)))
+			       ,@(mapcar (lambda (x)
+					   (if (atom x) x (car x)))
 					 slots)
 			       ,@include-args)))
 	   ,@slots)))))
@@ -1175,3 +1177,5 @@
 	     (when (eq kind :alien)
 	       `(%heap-alien-addr ',(info :variable :alien-info form))))))
 	(error "~S is not a valid L-value." form))))
+
+(/show0 "host-alieneval.lisp end of file")