Changeset 283

Timestamp:

Jan 13, 2004, 5:02:18 PM (21 years ago)

Author:

Gary Byers

Message:

Bad keywords trigger PROGRAM-ERRORs.

File:

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

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

@@ -939 +939 @@
 (defun odd-keys-error (varg l) 
   (let ((gf (combined-method-gf (%svref varg 2))))
-    (error "Odd number of keyword args to ~s~%keyargs: ~s" gf l)))
+    (signal-program-error "Odd number of keyword args to ~s~%keyargs: ~s" gf l)))
 
 
@@ -948 +948 @@
          (*print-readably* t)
          (readable-keys (format nil "~s" keys)))
-    (error "Bad keyword ~s to ~s.~%keyargs: ~s~%allowable keys are ~a." key gf l readable-keys)))
+    (signal-program-error "Bad keyword ~s to ~s.~%keyargs: ~s~%allowable keys are ~a." key gf l readable-keys)))
 
 ; vector arg is (vector key-index keyvect combined-method) ; the next combined method