f2cl.system 680 Bytes
Newer Older
rtoy's avatar
rtoy committed
1 2 3
;;; -*- Mode: lisp -*-

;; A sample defsystem.
4

5
(mk:defsystem f2cl
6 7 8 9
  :source-pathname
  (merge-pathnames (make-pathname :directory '(#-gcl :relative "src"))
		   (make-pathname :directory (pathname-directory #-gcl *load-pathname*
								 #+gcl sys:*load-pathname*)))
rtoy's avatar
rtoy committed
10 11 12 13
    :source-extension "l"
    :depends-on nil
    :components
    ((:module src
14 15
	      :source-pathname ""
	      :binary-pathname ""
rtoy's avatar
rtoy committed
16 17
	      :components
	      (
18
	       (:file "f2cl0")
rtoy's avatar
rtoy committed
19 20 21 22 23 24 25
	       (:file "f2cl1")
	       (:file "f2cl2")
	       (:file "f2cl3")
	       (:file "f2cl4")
	       (:file "f2cl5")
	       (:file "f2cl6")
	       (:file "f2cl7")
26
	       #+cmu(:file "f2cl8")
rtoy's avatar
rtoy committed
27
	       (:file "macros")))))