makefile.lisp

   1 #+windows
   2 (when (probe-file "./bin/c1cc.exe")
   3   (delete-file "./bin/c1cc.exe"))
   4
   5 #+ecl
   6 (progn
   7   (asdf:make-build
   8    :c1
   9    :type :program
  10    :epilogue-code '(funcall (intern "MAIN" (find-package "C1CC")))
  11    :move-here ".\\bin")
  12   #+windows
  13   (progn
  14     (rename-file #P"./bin/c1-mono.exe" #P"c1cc.exe")
  15     )
  16   (quit))
  17
  18 #+sbcl
  19 (progn
  20   (asdf:load-system :c1)
  21   (sb-ext:save-lisp-and-die "./bin/c1cc"
  22    :executable t :purify t
  23    :toplevel (lambda ()
  24                (eval (read-from-string "(c1cc::main)"))))
  25   (sb-ext:quit)
  26   )
  27
  28 #+ccl
  29 (progn
  30   (asdf:load-system :c1)
  31   (ccl:save-application #+windows "./bin/c1cc.exe" #-windows "./bin/c1cc" :error-handler :quit
  32                         :prepend-kernel t
  33                         :toplevel-function (lambda ()
  34                                              (eval (read-from-string "(c1cc::main)"))))
  35   (ccl:quit)
  36   )
  37
  38
  39
  40 (error "Your implementation: ~a ~a is not supported at this time. Patches welcome!" (lisp-implementation-type) (lisp-implementation-version))
  41