On Fri, Mar 18, 2005 at 08:38:43PM +0100, Luke Gorrie wrote: > > Helmut Eller <[EMAIL PROTECTED]> writes: > > > Perhaps with block compilation: > > > > (declaim (ext:start-block foo)) > > (defun foo () (bar 1)) > > (defun bar (x) (symbol-value x)) > > (declaim (ext:end-block)) > > Interesting! This works on that example but not for xx.lisp?
If you do the equivalent, it can. bc.lisp: --- (defun foo () (bar 1)) (defun bar (x) (symbol-value x)) --- Interaction: --- * (compile-file "/tmp/bc.lisp" :block-compile t :entry-points '(foo)) ; Python version 1.1, VM version Intel x86 on 18 MAR 05 10:21:51 pm. ; Compiling: /tmp/bc.lisp 18 MAR 05 10:15:43 pm ; Converted FOO. ; Converted BAR. ; Compiling DEFUN BAR: ; ; ; File: /tmp/bc.lisp ; In: DEFUN BAR ; (SYMBOL-VALUE X) ; ==> ; X ; Warning: This is not a (VALUES &OPTIONAL SYMBOL &REST T): ; 1 ; ; Byte Compiling Top-Level Form: ; Compilation unit finished. ; 1 warning ; /tmp/bc.x86f written. ; Compilation finished in 0:00:00. #p"/tmp/bc.x86f" T T * --- -- [Emacs] is written in Lisp, which is the only computer language that is beautiful. -- Neal Stephenson, _In the Beginning was the Command Line_
