[armedbear-cvs] r14447 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Mar 24 12:15:26 2013
New Revision: 14447

Log:
Re #230: Add a macro expansion for TRULY-THE.

Modified:
   trunk/abcl/src/org/armedbear/lisp/macros.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/macros.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/macros.lisp	Sun Mar 24 11:17:28 2013	(r14446)
+++ trunk/abcl/src/org/armedbear/lisp/macros.lisp	Sun Mar 24 12:15:26 2013	(r14447)
@@ -55,6 +55,9 @@
 (defmacro defparameter (name initial-value &optional docstring)
   `(%defparameter ',name ,initial-value ,docstring))
 
+(defmacro truly-the (type value)
+  `(the ,type ,value))
+
 (defmacro %car (x)
   `(car (truly-the cons ,x)))