Changeset 319

Timestamp:

Jan 17, 2004, 7:51:27 PM (21 years ago)

Author:

Gary Byers

Message:

More PROGRAM-ERRORs signaled during destructuring.

File:

• trunk/ccl/level-1/l1-utils.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-utils.lisp

@@ -286 +286 @@
 (defun %pop-required-arg-ptr (ptr)
   (if (atom (destructure-state.current ptr))
-    (error "Required arguments in ~s don't match lambda list ~s."
+    (signal-program-error "Required arguments in ~s don't match lambda list ~s."
            (destructure-state.whole ptr) (destructure-state.lambda ptr))
     (pop (destructure-state.current ptr))))
@@ -294 +294 @@
     (if tail
       (if (atom tail)
-        (error "Optional arguments in ~s don't match lambda list ~s."
+        (signal-program-error "Optional arguments in ~s don't match lambda list ~s."
                (destructure-state.whole ptr) (destructure-state.lambda ptr))
         (pop (destructure-state.current ptr)))