Changeset 12534 for branches/working-0711/ccl/lib/macros.lisp

Timestamp:

Aug 5, 2009, 11:51:47 PM (10 years ago)

Author:

gz

Message:

Make parse-macro bind &whole/&environment vars normally, so can tell whether used or not

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (3 diffs)

branches/working-0711/ccl/lib/macros.lisp

@@ -761 +761 @@
 
 
-(defmacro defloadvar (&environment env var value &optional doc)
+(defmacro defloadvar (var value &optional doc)
   `(progn
      (defstaticvar ,var ,nil ,@(if doc `(,doc)))
@@ -1263 +1263 @@
            (svref ,vtemp ,itemp)))))
 
-(defmacro %svset (v i new &environment env)
+(defmacro %svset (v i new)
   (let* ((vtemp (make-symbol "VECTOR"))
          (itemp (make-symbol "INDEX"))
@@ -2751 +2751 @@
 
 
-(defmacro with-hash-table-iterator ((mname hash-table) &body body &environment env)
+(defmacro with-hash-table-iterator ((mname hash-table) &body body)
   "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)
    provides a method of manually looping over the elements of a hash-table.