Ignore:
Timestamp:
Oct 11, 2010, 6:48:15 PM (9 years ago)
Author:
rme
Message:

Remove conditionalizations on ccl-qres.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/source-files.lisp

    r13675 r14351  
    122122  (definition-type-name thing))
    123123
    124 (defmacro define-definition-type (name supers &rest options)
     124(defmacro define-definition-type (name supers)
    125125  "Defines a class named name-DEFINITION-TYPE and registers it as the class of
    126126definition type NAME"
    127   (loop with known-keys = '( ;; Backward compatibility
    128                             #+ccl-qres :default-name-function)
    129         for (key . nil) in options
    130         unless (memq key known-keys)
    131           do (signal-program-error "Unknown option ~s" key))
    132127  (let ((class-name (intern (%str-cat (symbol-name name) "-DEFINITION-TYPE"))))
    133128    `(progn
Note: See TracChangeset for help on using the changeset viewer.