Patch for cl-chs-init.lisp

These are the last lines of the file cl-chs-init.lisp
------------------------------------------------------------
(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))
------------------------------------------------------------

But if you try to load a file sans extension clisp barfs: 

[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 to change the file as follows: 

------------------------------------------------------------
(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"))
  (sys::debug-unwind))
------------------------------------------------------------

Notice that clisp's default for system::*source-file-types*
is '("lisp" "lsp" "cl") before loading ilisp.

-- 

Eduardo Muñoz
http://213.97.131.125/lisp



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf