when compiling a file with the following function:
(defun y3-load (&key ((:y3-dir *y3-dir*) *y3-dir*) (out *standard-output*)
&aux
(full-file-list
(delete-if
(lambda (path)
(let ((name (pathname-name path)))
;; delete backup files
(case (char name (1- (length name)))
((#\~ #\#)
(format out "~&~S: deleting ~S..." 'y3-load path)
(force-output out)
(handler-case (delete-file path)
(error (err)
(format out "ignored error: ~A~%" err))
(:no-error () (format out "done~%")))
t))))
(directory (merge-pathnames "*" *y3-dir*))))
(file-list
(remove-if (port:compose y3-skip-p pathname-name first)
full-file-list)))
"read all data located in the specified directory"
....
(let* ((sn (nstring-upcase (subseq name (1+ pos))))
(fn (or (find-symbol sn :o)
(cerror "ignore file [EMAIL PROTECTED]" "~S: no symbol ~S"
'y3-load sn (rest file4))))
(func (when fn
(or (fdefinition fn)
(cerror "ignore file [EMAIL PROTECTED]" "~S: no function
~S"
'y3-load fn (rest file4))))))
..........)
I get the follwing:
* (compile-file "y3-input")
; Python version 1.1, VM version Intel x86 on 20 OCT 04 04:28:04 pm.
; Compiling: /home/sds/work/isd-cvs/cadre/lisp/y3-input.lisp 18 OCT 04 06:52:57
pm
................
; Compiling DEFUN Y3-LOAD:
;
;
; File: /home/sds/work/isd-cvs/cadre/lisp/y3-input.lisp
; In: DEFUN Y3-LOAD
; (CERROR "ignore file [EMAIL PROTECTED]" "~S: no function ~S" 'Y3-LOAD FN ...)
; Note: Deleting unreachable code.
;
; (HANDLER-CASE (DELETE-FILE PATH) (ERROR # #) (:NO-ERROR NIL #))
; --> BLOCK MULTIPLE-VALUE-CALL FUNCALL
; ==>
; (C::%FUNCALL FUNCTION #:FUNCALL-ARG-2863)
; Warning: Function called with one argument, but wants exactly zero.
----------- here CMUCL sleeps for a minute on a VERY fast machine!!! ---------
;
; Byte Compiling Top-Level Form:
; Compilation unit finished.
; 1 warning
; 1 note
; y3-input.x86f written.
; Compilation finished in 0:01:22.
#p"/home/sds/work/isd-cvs/cadre/lisp/y3-input.x86f"
T
T
*
could you please explain what is going on?
1. why a warning?
2. why a note?
3. why the 1 minute wait?!
when I try to load the compiled file, I get an error:
* (load *)
; Loading #p"/home/sds/work/isd-cvs/cadre/lisp/y3-input.x86f".
Error in function LISP::%ENUMERATE-SEARCH-LIST: Undefined search list: r
[Condition of type SIMPLE-ERROR]
Restarts:
0: [CONTINUE] Return NIL from load of #p"/home/sds/work/isd-cvs/cadre/lisp/y3-
input.x86f".
1: [ABORT ] Return to Top-Level.
Debug (type H for help)
(LISP::%ENUMERATE-SEARCH-LIST
#<Unprintable pathname, Host=#<LISP::UNIX-HOST>, Device=NIL, Directory=(:ABSOLU
TE
#<EXTEN
SIONS:SEARCH-LIST
r>
"Y3 Dat
asets"
:WILD),
Name=:WILD, Type=:WILD, Version=:WILD>
#<Closure Over Function (FLET #:G0
DIRECTORY)
{5E066289}>)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists:
target:code/pathname.lisp.
0]
uname:
Linux flume 2.4.21-20.ELsmp #1 SMP Wed Aug 18 20:34:58 EDT 2004 x86_64 x86_64 x86_64
GNU/Linux
cmucl:
CMU Common Lisp 19a, running on flume
With core: /home/sds/src/x86_64/m32/lib/cmucl/lib/lisp.core
Dumped on: Wed, 2004-07-28 12:51:48-04:00 on lorien
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
*
Thanks!
--
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
Beauty is only a light switch away.
