(in-package "CL-USER") #-ASDF (load "asdf") (format t "Compiling CPC.") (let ((*compile-print* nil) (*compile-verbose* nil) (*load-verbose* nil)) (asdf:oos 'asdf:load-op "cpc")) (defparameter *core-file* #+CMU "/tmp/cpc.core" #+CLISP "/tmp/cpc.mem" #-(or CMU CLISP) (error "Dumping not supported on this platform")) (format t "~%Dumping CPC to ~A; ~ when done, copy it to /usr/local/lib.~%~%" *core-file*) #+CMU (ext:save-lisp *core-file* :init-function #'cpc:cpc-main :root-structures (list #'cpc:cpc-main) :batch-mode t :print-herald nil :load-init-file nil) #+CLISP (ext:saveinitmem *core-file* :init-function #'cpc:cpc-main :quiet t) #-(or CMU CLISP) (error "Dumping not supported on this platform")