Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

48 lines (42 sloc) 1.567 kb
;;;; -*- Lisp -*-
;;;; above sets emacs major mode to Lisp
;;;; The following was stolen from maxima.asd
;;;; See
#+(or sbcl openmcl)
(or (find-package "USER")
(rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("USER")))
(in-package :user)
(in-package :asdf)
;;;; Load the source file, without compiling
;;;; asdf:load-op reloads all files, whether they have been
;;;; changed or not.
(defclass no-compile-file (asdf:cl-source-file) ())
(defmethod asdf:perform ((o asdf:compile-op) (s no-compile-file))
(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")
(:file "fluids-problems")
(:file "waves-problems")
(:file "work-energy-problems")
;; depends on "waves":
(:file "oscillations-problems")
;;; Hey, these are the wrong mountains
;; (:file "PyreneesProblems")
(:file "electromagnetism-problems")
(:file "optics-problems")
(:file "momentum-impulse-problems")
(:file "rocket-problems")
(:file "circuit-problems")
(: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))))
Jump to Line
Something went wrong with that request. Please try again.