[Openmcl-cvs-notifications] r10219 - /trunk/source/lib/macros.lisp

[gb at clozure.com]

Author: gb
Date: Sun Jul 27 12:41:55 2008
New Revision: 10219

Log:
Use %ISTRUCT macro to make istructs, for later bootstrapping.

Modified:
    trunk/source/lib/macros.lisp

Modified: trunk/source/lib/macros.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/macros.lisp (original)
+++ trunk/source/lib/macros.lisp Sun Jul 27 12:41:55 2008
@@ -229,7 +229,7 @@
   `(values (%badarg , at args)))
 =

 (defmacro %cons-restart (name action report interactive test)
- `(gvector :istruct 'restart ,name ,action ,report ,interactive ,test))
+ `(%istruct 'restart ,name ,action ,report ,interactive ,test))
 =

 (defmacro restart-bind (clauses &body body)
   "Executes forms in a dynamic context where the given restart bindings are
@@ -941,7 +941,7 @@
       , at body)))
 =

 (defmacro make-destructure-state (tail whole lambda)
-  `(gvector :istruct 'destructure-state ,tail ,whole ,lambda))
+  `(%istruct 'destructure-state ,tail ,whole ,lambda))
 =

 =

 ; This is supposedly ANSI CL.