Changeset 14381 for release/1.6/source/lib/macros.lisp

Timestamp:

Oct 29, 2010, 3:53:56 PM (10 years ago)

Author:

rme

Message:

Merge trunk changes r14361 through r14380.

Location:

release/1.6/source

Files:

• . (modified) (1 prop)
• lib/macros.lisp (modified) (2 diffs)

release/1.6/source/lib/macros.lisp

@@ -264 +264 @@
           ,@(if ret `((progn (setq ,varsym nil) ,ret))))))))
 
-(defmacro report-bad-arg (&rest args)
-  `(values (%badarg ,@args)))
+(defmacro report-bad-arg (&whole w thing typespec &environment env)
+  (when (quoted-form-p typespec)
+    (unless (ignore-errors (specifier-type-if-known (cadr typespec) env))
+      (warn "Unknown type specifier ~s in ~s." (cadr typespec) w)))
+  `(values (%badarg ,thing ,typespec)))
 
 (defmacro %cons-restart (name action report interactive test)
@@ -3854 +3857 @@
 (defmacro int-errno-ffcall (entry &rest args)
   `(int-errno-call (ff-call ,entry ,@args)))
+
+(defmacro with-initial-bindings (bindings &body body)
+  (let* ((syms (gensym))
+         (values (gensym)))
+    `(multiple-value-bind (,syms ,values)
+        (initial-bindings ,bindings)
+      (progv ,syms ,values ,@body))))
+
+(defmacro with-standard-initial-bindings (&body body)
+  `(with-initial-bindings (standard-initial-bindings) ,@body))
+