r1998: *** empty log message ***

[clsql.git] / set-cl-library.cl

diff --git a/set-cl-library.cl b/set-cl-library.cl
index fc9e6fc82785be2c0db306321a8a861e8573ba06..1d18e5ef4de9141122f66bb764bac12ca56ea10f 100644 (file)
--- a/set-cl-library.cl
+++ b/set-cl-library.cl
@@ -37,9 +37,7 @@
                                  (concatenate 'string
                                               "CL-LIBRARY:" base-dir ";"))))
               (unless (equalp dir (pathname-directory logical-dir))
-                (error 
-                 (format nil "~S does not equal ~S"
-                         dir (pathname-directory logical-dir)))))))
-                       
-
-            ))
+                (let ((*print-circle* nil))
+                  (error "CL-LIBRARY:~A; directory ~S does not equal *load-truename*'s directory ~S"
+                         base-dir (cdr dir)
+                         (cdr (pathname-directory logical-dir))))))))