Changeset 509

Timestamp:

Feb 9, 2004, 12:33:47 AM (21 years ago)

Author:

Gary Byers

Message:

fix error message on REQUIRE failure

File:

• trunk/ccl/level-1/l1-files.lisp (modified) (1 diff)

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

@@ -1203 +1203 @@
           (unless (some (lambda (p) (funcall p module))
                         *module-provider-functions*)
-            (error "Module ~A was not provided by any function on" module '*module-provider-functions*)))))
+            (error "Module ~A was not provided by any function on ~S." module '*module-provider-functions*)))))
     (values module
             (set-difference *modules* original-modules))))