Changeset 11784

Timestamp:

04/26/09 06:49:37 (14 years ago)

Author:

ehuelsmann

Message:

Add a function which seems to be missing in our sources (MISSING-ARG).

File:

• trunk/abcl/src/org/armedbear/lisp/format.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/format.lisp

@@ -359 +359 @@
     (format-error-control-string condition)
     (format-error-offset condition)))
+
+(defun missing-arg ()
+  (error "Missing argument in format directive"))
 
 (defstruct format-directive