Permalink
Browse files

asdf for problems using symlink; reading problems.asd, but not workin…

…g right
  • Loading branch information...
1 parent ff7536f commit 4c4fe53df4ea9f4fd9962370fdcd57fa6b96948c Brett van de Sande committed Jan 9, 2009
Showing with 13 additions and 8 deletions.
  1. +7 −5 andes.asd
  2. +1 −0 problems.asd
  3. +5 −3 problems/problems.asd
View
@@ -25,10 +25,15 @@
(defmethod asdf:output-files ((o asdf:compile-op) (s no-compile-file))
(list (component-pathname s)))
+;;;
+;;; Add directory of problem files to
+;;;
+
(defsystem :andes
:name "Andes"
:description "Andes physics tutor system"
+ :depends-on (problems)
:components (
;;; this should eventually be removed
(:file "andes-path")
@@ -65,7 +70,8 @@
(:module "KB"
;;; :description "Knowledge Base"
:depends-on ("Knowledge" "Base")
- :serial t ;real dependancies would be better
+ :default-component-class no-compile-file
+ :serial t ;real dependancies would be better
:components (
;; treat these as normal lisp files
(:cl-source-file "Physics-Funcs")
@@ -95,9 +101,6 @@
(:file "momentum-impulse")
(:file "electromagnetism")
))
- (:module "problems"
-;;; :description "problem sources, with own asd file"
- :depends-on (problems))
(:module "SGG"
;;; :description "Solution Graph Generator"
:depends-on ("Base" "Knowledge" "HelpStructs")
@@ -117,4 +120,3 @@
(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :andes))))
"cl")
-
View
View
@@ -1,8 +1,6 @@
;;;; -*- Lisp -*-
;;;; above sets emacs major mode to Lisp
;;;;
-
-
;;;; The following was stolen from maxima.asd
;;;; See http://www.math.utexas.edu/pipermail/maxima/2003/005630.html
#+(or sbcl openmcl)
@@ -21,10 +19,10 @@
(defmethod asdf:output-files ((o asdf:compile-op) (s no-compile-file))
(list (component-pathname s)))
-
(defsystem :problems
:name "problems"
:description "Problem definitions"
+ :default-component-class no-compile-file
:components (
(:file "kinematics-problems")
(:file "dynamics-problems")
@@ -43,3 +41,7 @@
(:file "statics-problems")
))
+;;; make lisp source file extension "cl" See asdf manual
+
+(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :problems))))
+ "cl")

0 comments on commit 4c4fe53

Please sign in to comment.