Commit c4bde469 authored by Dave Cooper's avatar Dave Cooper
Browse files

get rid of gendl-asdf from here.

parent 87b56730
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:gendl-asdf
:description "asdf gendl artifacts loading"
:serial t
:version "20161111"
:depends-on ()
:components ((:file "gendl-asdf")))
;;;; -*- coding: utf-8 -*-
(in-package :asdf)
(defclass asdf::gdl (asdf::cl-source-file) ((type :initform "gdl")))
(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."
(declare (ignore o))
(let ((input-file (slot-value c 'asdf/component:absolute-pathname)))
(gendl::peruse-file input-file
:load t)))
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