build_gcl/test> cat foo.lisp ;;;;;;;;;;;;;;;;;;;;;; begin foo.lisp (provide :foo) ;;;;;;;;;;;;;;;;;;;;;; end foo.lisp build_gcl/test> cat bar.lisp ;;;;;;;;;;;;;;;;;;;;;; begin bar.lisp (require :foo "foo") ;; gcl seems to have a problem with non-integer sleep values here. ;; gcl version: 2.6.6 ANSI (sleep 0.5) ;;;;;;;;;;;;;;;;;;;;;; end bar.lisp build_gcl/test> cat make.lisp ;;;;;;;;;;;;;;;;;;;;;; begin make.lisp (system:use-fast-links nil) (proclaim '(optimize (safety 3)(speed 0))) (compile-file "foo.lisp") (compile-file "bar.lisp") (quit) ;;;;;;;;;;;;;;;;;;;;;; end make.lisp build_gcl/test> gcl -load make.lisp GCL (GNU Common Lisp) 2.6.6 ANSI Jul 20 2007 08:34:05 Source License: LGPL(gcl,gmp), GPL(unexec,bfd) Binary License: GPL due to GPL'ed components: (READLINE BFD UNEXEC) Modifications of this banner must retain notice of a compatible license Dedicated to the memory of W. Schelter Use (help) to get some basic information on how to use GCL. Compiling foo.lisp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=3, Space=0, Speed=0 Finished compiling foo.lisp. Compiling bar.lisp. End of Pass 1. End of Pass 2. OPTIMIZE levels: Safety=3, Space=0, Speed=0 Finished compiling bar.lisp. build_gcl/test> gcl -load bar GCL (GNU Common Lisp) 2.6.6 ANSI Jul 20 2007 08:34:05 Source License: LGPL(gcl,gmp), GPL(unexec,bfd) Binary License: GPL due to GPL'ed components: (READLINE BFD UNEXEC) Modifications of this banner must retain notice of a compatible license Dedicated to the memory of W. Schelter Use (help) to get some basic information on how to use GCL. Error in FUNCALL [or a callee]: free(3) error. Fast links are on: do (use-fast-links nil) for debugging Broken at SYSTEM:TOP-LEVEL. Type :H for Help. 1 (Continue) Retry loading file "bar". 2 (Abort) Return to top level. dbl:>> Error in SYSTEM:TOP-LEVEL [or a callee]: Caught fatal error [memory may be damaged] Fast links are on: do (use-fast-links nil) for debugging Broken at CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER. 1 (Abort) Return to debug level 1. 2 Retry loading file "bar". 3 Return to top level. dbl:>>>xmalloc: out of virtual memory build_gcl/test>