projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2004: *** 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))
(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))))))))