X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=set-cl-library.cl;h=1d18e5ef4de9141122f66bb764bac12ca56ea10f;hb=03b7dcc2983e9e0cd2a510a449f3f4567ca9e0d5;hp=fc9e6fc82785be2c0db306321a8a861e8573ba06;hpb=6e90fdee86345139ce49e799cfbce75dce2dfc07;p=clsql.git

diff --git a/set-cl-library.cl b/set-cl-library.cl
index fc9e6fc..1d18e5e 100644
--- 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))))))))