[armedbear-cvs] r11784 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Apr 26 02:49:37 2009
New Revision: 11784

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/format.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/format.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/format.lisp	Sun Apr 26 02:49:37 2009
@@ -359,6 +359,9 @@
 	  (format-error-control-string condition)
 	  (format-error-offset condition)))
 
+(defun missing-arg ()
+  (error "Missing argument in format directive"))
+
 (defstruct format-directive
   (string (missing-arg) :type simple-string)
   (start (missing-arg) :type (and unsigned-byte fixnum))