Patch to cl-chs-init.lisp
Eduardo Muñoz <[email protected]>
| Newsgroups | gmane.lisp.ilisp.devel |
|---|---|
| Organization | :noitazinagrO |
| Message-ID | <[email protected]> |
After downloading CVS sources and compiling I got bitten
again by (what I think is) an old bug. CLISP will barf if
#P".lisp" (a pathname) is member of
system::*source-file-types* (a list of strings):
[12]> (directory "d:/temp/*.lisp")
(#P"D:\\temp\\log.lisp")
[13]> (load "d:/temp/log")
*** - STRING-EQUAL: argument #P".lisp" should be a string, a symbol or a character
1. Break [14]>
So I propose the following patch:
Index: cl-chs-init.lisp
===================================================================
RCS file: /cvsroot/ilisp/ILISP/cl-chs-init.lisp,v
retrieving revision 1.3
diff -u -r1.3 cl-chs-init.lisp
--- cl-chs-init.lisp 26 Mar 2002 09:41:04 -0000 1.3
+++ cl-chs-init.lisp 9 May 2003 14:35:59 -0000
@@ -62,9 +62,6 @@
(eval-when (:execute :load-toplevel)
(when (not (compiled-function-p #'ilisp-inspect))
(ilisp-message t "File is not compiled, use M-x ilisp-compile-inits"))
-
- (when (boundp 'system::*source-file-types*)
- (pushnew (pathname ".lisp") system::*source-file-types* :test #'equalp))
(sys::debug-unwind))
--
Eduardo Muñoz | (prog () 10 (print "Hello world!")
http://213.97.131.125/ | 20 (go 10))
-------------------------------------------------------
Enterprise Linux Forum Conference & Expo, June 4-6, 2003, Santa Clara
The only event dedicated to issues related to Linux enterprise solutions
www.enterpriselinuxforum.com