Commit 21d3a0e8 authored by Dave Cooper's avatar Dave Cooper

conditionalize table and persuser stuff on full genworks-gdl.

parent 9e2e95d0
......@@ -5,15 +5,18 @@
(defclass asdf::gendl (asdf::cl-source-file) ((type :initform "gendl")))
(defclass asdf::lisp (asdf::cl-source-file) ())
#+genworks-gdl
(defclass asdf::table (asdf::cl-source-file) ((type :initform "table")))
#+genworks-gdl
(defmethod perform ((o compile-op) (c asdf::table))
(perform-peruse-file o c))
#+genworks-gdl
(defmethod perform ((o load-op) (c asdf::table))
(perform-peruse-file o c))
#+genworks-gdl
(defun perform-peruse-file (o c)
"Perform the perusal of icad-style catalog table."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment