Changeset 11856 for release/1.3/source/level-1/l1-error-system.lisp

Timestamp:

Mar 28, 2009, 4:49:44 AM (12 years ago)

Author:

rme

Message:

Port r11810 (fixes to various format/warn/etc. calls) to 1.3 branch.

File:

• release/1.3/source/level-1/l1-error-system.lisp (modified) (1 diff)

release/1.3/source/level-1/l1-error-system.lisp

@@ -988 +988 @@
                              (if (= 1 (length other-functions))
                                (format s "Apply ~s to ~S this time." (first other-functions) args)
-                               (format s "Apply one of ~{~S or ~} to ~S this time.")))
+                               (format s "Apply one of ~{~S or ~} to ~S this time."
+                                       other-functions args)))
                    :interactive (lambda ()
                                   (if (= 1 (length other-functions))