WALKER> (print-asdf-definition (find-system :clim-core) :interesting-packages (list (find-package :clim)))
(:file "utils" :depends-on ("decls"))
(:file "design" :depends-on ("decls"))
(:file "transforms" :depends-on ("coordinates" "decls" "utils"))
(:file "regions" :depends-on ("coordinates" "decls" "utils" "transforms"))
(:file "sheets" :depends-on ("utils" "decls" "transforms" "regions"))
(:file "pixmap" :depends-on ("sheets" "transforms" "regions" "decls"))
(:file "events" :depends-on ("decls" "transforms" "sheets"))
(:file "ports" :depends-on ("decls" "events" "sheets"))
(:file "grafts" :depends-on ("sheets" "ports" "transforms" "decls" "regions"))
(:file "medium" :depends-on ("ports" "X11-colors" "utils" "pixmap" "regions"
"transforms" "design" "decls"))
(:file "output" :depends-on ("decls" "medium"))
(:file "input" :depends-on ("events" "regions" "sheets" "decls"))
(:file "repaint" :depends-on ("decls" "sheets" "events"))
(:file "graphics" :depends-on ("output" "utils" "medium" "sheets" "pixmap"
"regions" "decls" "design" "transforms"))
(:file "views" :depends-on ("decls"))
(:file "stream-output" :depends-on ("design" "utils" "X11-colors" "views"
"output" "sheets" "regions" "graphics"
"decls" "medium"))
(:file "recording" :depends-on ("output" "coordinates" "graphics" "design"
"medium" "transforms" "regions" "sheets"
"decls" "utils" "stream-output"))
(:file "encapsulate" :depends-on ("sheets" "graphics" "utils" "medium" "input"
"events" "stream-output" "recording" "decls"))
(:file "stream-input" :depends-on ("input" "ports" "sheets" "events"
"encapsulate" "decls" "transforms"))
(:file "text-selection" :depends-on ("X11-colors" "medium" "output"
"transforms" "sheets" "stream-output"
"decls" "ports" "recording" "regions"
"events"))
NIL
(defpackage :mcclim.system
(:use :asdf :cl))
(in-package :mcclim.system)
(defparameter *clim-directory* (directory-namestring *load-truename*))
#+cmu
(progn
(unless (fboundp 'ext:stream-read-char)
(unless (ignore-errors (ext:search-list "gray-streams:"))
(setf (ext:search-list "gray-streams:")
'("target:pcl/" "library:subsystems/")))
(if (fboundp 'without-package-locks)
(without-package-locks
(load "gray-streams:gray-streams-library"))
(load "gray-streams:gray-streams-library")))
#-clx
(require :clx)
#-(or mk-defsystem asdf)
(load "library:subsystems/defsystem")
#+mp (when (eq mp::*initial-process* mp::*current-process*)
(format t "~%~%You need to run (mp::startup-idle-and-top-level-loops) to start up the multiprocessing support.~%~%")))
(pushnew :clim *features*)
(pushnew :mcclim *features*)
+;;; I really didn't have good luck with this on Allegro, because
+;;; Allegro's CL-USER package uses it's EXCL stuff, which has its own
+;;; DEFSYSTEM. [2004/12/21:rpg]
+;;;#+mk-defsystem (use-package "MK")
(defmacro clim-defsystem ((module &key depends-on) &rest components)
`(progn
#+mk-defsystem
(mk:defsystem ,module
:source-pathname *clim-directory*
:source-extension "lisp"
,@(and depends-on `(:depends-on ,depends-on))
:components
(:serial
,@components))
#+asdf
(asdf:defsystem ,module
,@(and depends-on
`(:depends-on ,depends-on))
:serial t
:components
(,@(loop for c in components
for p = (merge-pathnames
(parse-namestring c)
(make-pathname :type "lisp"
:defaults *clim-directory*))
collect `(:file ,(pathname-name p) :pathname ,p))))
#-(or mk-defsystem asdf)
(defsystem ,module ()
(:serial
,@depends-on
,@components))))
(defsystem :clim-lisp
:components
( (:file "patch")
(:file #+cmu "Lisp-Dep/fix-cmu"
#+excl "Lisp-Dep/fix-acl"
#+sbcl "Lisp-Dep/fix-sbcl"
#+openmcl "Lisp-Dep/fix-openmcl"
#+lispworks "Lisp-Dep/fix-lispworks"
#+clisp "Lisp-Dep/fix-clisp"
:depends-on ("patch"))
(:file "package" :depends-on ("patch"))))
(defsystem :clim-base
:depends-on (:clim-lisp)
:components ((:file "decls")
(:file
#.(or
#+(and :cmu :mp (not :pthread)) "Lisp-Dep/mp-cmu"
#+sb-thread "Lisp-Dep/mp-sbcl"
#+excl "Lisp-Dep/mp-acl"
#+openmcl "Lisp-Dep/mp-openmcl"
#+lispworks "Lisp-Dep/mp-lw"
"Lisp-Dep/mp-nil")
:depends-on ("decls"))))
(defsystem :clim-core
:depends-on (:clim-lisp :clim-base)
:components ((:file "utils")
(:file "design")
(:file "X11-colors")
(:file "coordinates")
(:file "setf-star")
(:file "transforms" :depends-on ("coordinates" "utils"))
(:file "regions" :depends-on ("coordinates" "utils" "transforms"))
(:file "sheets" :depends-on ("utils" "transforms" "regions"))
(:file "pixmap" :depends-on ("sheets" "transforms" "regions"))
(:file "events" :depends-on ("transforms" "sheets"))
(:file "ports" :depends-on ("events" "sheets" "pixmap"))
(:file "grafts" :depends-on ("sheets" "ports" "transforms" "regions"))
(:file "medium" :depends-on ("ports" "X11-colors" "utils" "pixmap" "regions"
"transforms" "design"))
(:file "output" :depends-on ("medium"))
(:file "input" :depends-on ("events" "regions" "sheets"))
(:file "repaint" :depends-on ("sheets" "events"))
(:file "graphics" :depends-on ("output" "utils" "medium" "sheets" "pixmap"
"regions" "design" "transforms"))
(:file "views")
(:file "stream-output" :depends-on ("design" "utils" "X11-colors" "views"
"output" "sheets" "regions" "graphics"
"medium" "setf-star"))
(:file "recording" :depends-on ("output" "coordinates" "graphics" "design"
"medium" "transforms" "regions" "sheets"
"utils" "stream-output"))
(:file "encapsulate" :depends-on ("sheets" "graphics" "utils" "medium" "input"
"events" "stream-output" "recording"))
(:file "stream-input" :depends-on ("input" "ports" "sheets" "events"
"encapsulate" "transforms"))
(:file "text-selection" :depends-on ("X11-colors" "medium" "output"
"transforms" "sheets" "stream-output"
"ports" "recording" "regions"
"events"))))
(defsystem :goatee-core
:depends-on (:clim-core)
:components
((:module "Goatee"
:components
((:file "conditions")
(:file "dbl-list")
(:file "flexivector" :depends-on ("conditions" "dbl-list"))
(:file "buffer" :depends-on ("conditions" "flexivector" "dbl-list"))
(:file "editable-buffer" :depends-on ("dbl-list" "flexivector" "buffer"))
(:file "editable-area" :depends-on ("flexivector" "editable-buffer" "dbl-list"
"buffer"))
(:file "clim-area" :depends-on ("flexivector" "dbl-list" "buffer"
"editable-area" "editable-buffer"))
(:file "kill-ring" :depends-on ("editable-buffer" "dbl-list" "flexivector"
"buffer"))
(:file "goatee-command" :depends-on ("conditions" "clim-area" "dbl-list"
"editable-buffer" "kill-ring"
"editable-area" "buffer" "flexivector"))
(:file "editing-stream" :depends-on ("goatee-command" "kill-ring" "dbl-list"
"conditions" "editable-buffer"
"flexivector" "clim-area" "buffer"))
(:file "presentation-history" :depends-on ("editing-stream" "buffer"
"flexivector" "editable-buffer"
"goatee-command"))))))
(defsystem :clim-postscript
:depends-on (:clim-core)
:components
((:module "Backends/PostScript"
:components
((:file "package")
(:file "encoding" :depends-on ("package"))
(:file "paper" :depends-on ("package"))
(:file "class" :depends-on ("paper" "package"))
(:file "font" :depends-on ("encoding" "class" "paper" "package"))
(:file "graphics" :depends-on ("encoding" "paper" "class" "font" "package"))
(:file "sheet" :depends-on ("paper" "class" "graphics" "package"))
(:file "afm" :depends-on ("class" "paper" "font" "package"))
(:file "standard-metrics" :depends-on ("font" "package"))))))
(defsystem :clim
:depends-on (:clim-core :goatee-core :clim-postscript)
:components
((:file "text-formatting")
(:file "input-editing" :depends-on ("text-formatting"))
(:file "presentations" :depends-on ("text-formatting" "input-editing"))
(:file "presentation-defs" :depends-on ("text-formatting" "input-editing"
"presentations"))
(:file "pointer-tracking" :depends-on ("text-formatting" "input-editing"
"presentation-defs" "presentations"))
(:file "commands" :depends-on ("text-formatting" "input-editing"
"presentations" "presentation-defs"))
(:file "frames" :depends-on ("input-editing" "text-formatting" "commands"
"presentations" "presentation-defs"
"pointer-tracking"))
(:file "incremental-redisplay" :depends-on ("commands" "presentation-defs"
"input-editing" "text-formatting"
"presentations" "frames"))
(:file "panes" :depends-on ("incremental-redisplay" "pointer-tracking"
"commands" "text-formatting" "presentations"
"presentation-defs" "input-editing" "frames"))
(:file "gadgets" :depends-on ("commands" "presentation-defs" "pointer-tracking"
"input-editing" "text-formatting" "presentations"
"frames" "incremental-redisplay" "panes"))
(:file "menu" :depends-on ("panes" "commands" "gadgets" "text-formatting"
"presentations" "frames" "input-editing"))
(:file "table-formatting" :depends-on ("presentation-defs" "panes" "menu"
"text-formatting"
"incremental-redisplay" "presentations"
"pointer-tracking" "frames"
"input-editing"))
(:file "graph-formatting" :depends-on ("commands" "table-formatting"
"presentation-defs" "input-editing"
"gadgets" "incremental-redisplay"
"panes" "presentations"
"text-formatting"))
(:file "bordered-output" :depends-on ("graph-formatting" "table-formatting"
"frames" "text-formatting"
"input-editing" "presentations"
"incremental-redisplay"
"presentation-defs" "gadgets" "panes"))
(:file "dialog-views" :depends-on ("presentations" "incremental-redisplay"
"bordered-output" "presentation-defs"
"panes" "text-formatting" "input-editing"
"commands"))
(:file "dialog" :depends-on ("panes" "frames" "incremental-redisplay" "gadgets"
"table-formatting" "presentations"
"bordered-output" "presentation-defs"
"dialog-views" "text-formatting" "input-editing"
"commands"))
(:file "builtin-commands" :depends-on ("table-formatting" "text-formatting"
"commands" "presentations"
"presentation-defs" "input-editing"))
(:file "describe" :depends-on ("builtin-commands" "presentations"
"presentation-defs" "table-formatting"))
(:file "Experimental/menu-choose" :depends-on ("incremental-redisplay" "commands"
"table-formatting" "presentation-defs"
"panes" "menu" "frames" "text-formatting"
"input-editing" "pointer-tracking"
"presentations"))
(:file "Goatee/presentation-history" :depends-on ("presentation-defs")) ))
(defsystem :clim-clx
:depends-on (:clim #+(and sbcl asdf) :clx)
:components
((:module "Backends/CLX"
:components
((:file "package")
(:file "image")
(:file "keysyms-common" :depends-on ("package"))
(:file "keysyms" :depends-on ("keysyms-common" "package"))
(:file "keysymdef" :depends-on ("keysyms-common" "package"))
(:file "port" :depends-on ("keysyms-common" "keysyms" "package"))
(:file "medium" :depends-on ("port" "keysyms" "package"))
(:file "graft" :depends-on ("port" "package"))
(:file "frame-manager" :depends-on ("medium" "port" "package"))))))
#+gl(load (merge-pathnames "Backends/OpenGL/system" *clim-directory*))
(defsystem :clim-looks
:depends-on (#+clx :clim-clx #+gl :clim-opengl)
:components ((:file "Looks/pixie")))
(defsystem :clim-clx-user
:depends-on (:clim :clim-clx))
(defsystem :clim-examples
:depends-on (:clim #+clx :clim-looks)
:components
((:module "Examples"
:components
((:file "calculator")
(:file "colorslider")
(:file "address-book")
(:file "traffic-lights")
(:file "clim-fig")
(:file "postscript-test")
(:file "stream-test")
(:file "presentation-test")
#+clx (:file "gadget-test")
(:file "accepting-values")))))
(clim-defsystem (:scigraph :depends-on (:clim #+clx :clim-looks))
"Apps/Scigraph/dwim/package"
"Apps/Scigraph/dwim/feature-case"
"Apps/Scigraph/dwim/macros"
"Apps/Scigraph/dwim/tv"
"Apps/Scigraph/dwim/draw"
"Apps/Scigraph/dwim/present"
"Apps/Scigraph/dwim/extensions"
"Apps/Scigraph/dwim/wholine"
"Apps/Scigraph/dwim/export"
"Apps/Scigraph/scigraph/package"
"Apps/Scigraph/scigraph/copy"
"Apps/Scigraph/scigraph/dump"
"Apps/Scigraph/scigraph/duplicate"
"Apps/Scigraph/scigraph/random"
"Apps/Scigraph/scigraph/menu-tools"
"Apps/Scigraph/scigraph/basic-classes"
"Apps/Scigraph/scigraph/draw"
"Apps/Scigraph/scigraph/mouse"
"Apps/Scigraph/scigraph/color"
"Apps/Scigraph/scigraph/basic-graph"
"Apps/Scigraph/scigraph/graph-mixins"
"Apps/Scigraph/scigraph/axis"
"Apps/Scigraph/scigraph/moving-object"
"Apps/Scigraph/scigraph/symbol"
"Apps/Scigraph/scigraph/graph-data"
"Apps/Scigraph/scigraph/legend"
"Apps/Scigraph/scigraph/graph-classes"
"Apps/Scigraph/scigraph/present"
"Apps/Scigraph/scigraph/annotations"
"Apps/Scigraph/scigraph/annotated-graph"
"Apps/Scigraph/scigraph/contour"
"Apps/Scigraph/scigraph/equation"
"Apps/Scigraph/scigraph/popup-accept"
"Apps/Scigraph/scigraph/popup-accept-methods"
"Apps/Scigraph/scigraph/duplicate-methods"
"Apps/Scigraph/scigraph/frame"
"Apps/Scigraph/scigraph/export"
"Apps/Scigraph/scigraph/demo-frame")
(clim-defsystem (:clim-listener :depends-on (:clim #+clx :clim-looks #+sbcl :sb-posix))
"Experimental/xpm"
"Apps/Listener/package"
"Apps/Listener/hotfixes"
"Apps/Listener/util"
"Apps/Listener/icons.lisp"
"Apps/Listener/file-types"
"Apps/Listener/dev-commands"
"Apps/Listener/listener"
#+CMU "Apps/Listener/cmu-hacks")
(asdf:defsystem :clim-base
:depends-on (:clim-lisp)
:components ((:file "decls")
(:file
#.(or
#+(and :cmu :mp (not :pthread)) "Lisp-Dep/mp-cmu"
#+sb-thread "Lisp-Dep/mp-sbcl"
#+excl "Lisp-Dep/mp-acl"
#+openmcl "Lisp-Dep/mp-openmcl"
#+lispworks "Lisp-Dep/mp-lw"
"Lisp-Dep/mp-nil")
:depends-on ("decls"))))(asdf:defsystem :clim-core
:depends-on (:clim-lisp :clim-base)
:components ((:file "utils")
(:file "design")
(:file "X11-colors" )
(:file "coordinates" )
(:file "setf-star")
(:file "transforms" :depends-on ("coordinates" "utils"))
(:file "regions" :depends-on ("coordinates" "utils" "transforms"))
(:file "sheets" :depends-on ("utils" "transforms" "regions"))
(:file "pixmap" :depends-on ("sheets" "transforms" "regions"))
(:file "events" :depends-on ("transforms" "sheets"))
(:file "ports" :depends-on ("events" "sheets" "pixmap"))
(:file "grafts" :depends-on ("sheets" "ports" "transforms" "regions"))
(:file "medium" :depends-on ("ports" "X11-colors" "utils" "pixmap" "regions"
"transforms" "design"))
(:file "output" :depends-on ("medium"))
(:file "input" :depends-on ("events" "regions" "sheets"))
(:file "repaint" :depends-on ("sheets" "events"))
(:file "graphics" :depends-on ("output" "utils" "medium" "sheets" "pixmap"
"regions" "design" "transforms"))
(:file "views")
(:file "stream-output" :depends-on ("design" "utils" "X11-colors" "views"
"output" "sheets" "regions" "graphics"
"medium" "setf-star"))
(:file "recording" :depends-on ("output" "coordinates" "graphics" "design"
"medium" "transforms" "regions" "sheets"
"utils" "stream-output"))
(:file "encapsulate" :depends-on ("sheets" "graphics" "utils" "medium" "input"
"events" "stream-output" "recording"))
(:file "stream-input" :depends-on ("input" "ports" "sheets" "events"
"encapsulate" "transforms"))
(:file "text-selection" :depends-on ("X11-colors" "medium" "output"
"transforms" "sheets" "stream-output"
"ports" "recording" "regions"
"events"))))
CL-USER> (require :clim-core)
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {9C578B1}> on
#<CL-SOURCE-FILE "stream-output" {A0D1CD1}>.
WARNING:
defining setf macro for CURSOR-POSITION when (SETF CURSOR-POSITION) was previously treated as a function
WARNING:
defining setf macro for STREAM-CURSOR-POSITION when (SETF STREAM-CURSOR-POSITION) was previously treated as a function
WARNING:
defining setf macro for OUTPUT-RECORD-POSITION when (SETF OUTPUT-RECORD-POSITION) was previously treated as a function
NIL
CL-USER> ;; woohoohooo! 6 files recompiled, not 20! (-:(:file "decls" )
(:file "utils" :depends-on ("decls"))
(:file "design" :depends-on ("decls"))
(:file "X11-colors" )
(:file "coordinates" )
(:file "transforms" :depends-on ("coordinates" "decls" "utils"))
(:file "regions" :depends-on ("coordinates" "decls" "utils" "transforms"))
(:file "sheets" :depends-on ("utils" "decls" "transforms" "regions"))
(:file "pixmap" :depends-on ("sheets" "transforms" "regions" "decls"))
(:file "events" :depends-on ("decls" "transforms" "sheets"))
(:file "ports" :depends-on ("decls" "events" "sheets"))
(:file "grafts" :depends-on ("sheets" "ports" "transforms" "decls" "regions"))
(:file "medium" :depends-on ("ports" "X11-colors" "utils" "pixmap" "regions"
"transforms" "design" "decls"))
(:file "output" :depends-on ("decls" "medium"))
(:file "input" :depends-on ("events" "regions" "sheets" "decls"))
(:file "repaint" :depends-on ("decls" "sheets" "events"))
(:file "graphics" :depends-on ("output" "utils" "medium" "sheets" "pixmap"
"regions" "decls" "design" "transforms"))
(:file "views" :depends-on ("decls"))
(:file "stream-output" :depends-on ("design" "utils" "X11-colors" "views"
"output" "sheets" "regions" "graphics"
"decls" "medium"))
(:file "recording" :depends-on ("output" "coordinates" "graphics" "design"
"medium" "transforms" "regions" "sheets"
"decls" "utils" "stream-output"))
(:file "encapsulate" :depends-on ("sheets" "graphics" "utils" "medium" "input"
"events" "stream-output" "recording" "decls"))
(:file "stream-input" :depends-on ("input" "ports" "sheets" "events"
"encapsulate" "decls" "transforms"))
(:file "text-selection" :depends-on ("X11-colors" "medium" "output"
"transforms" "sheets" "stream-output"
"decls" "ports" "recording" "regions"
"events"))