Commit 94db450e authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler

Bind SB-EXT:*DERIVE-FUNCTION-TYPES* to T when compiling named-readtables.

darcs-hash:20090919083025-f5546-f0e7f1053d4bd55b679597eb3982ddd1da70a7ab.gz
parent ff5a48d9
(asdf:defsystem :named-readtables
(defpackage :named-readtables-system
(:use :cl :asdf))
(in-package :named-readtables-system)
(defclass named-readtables-source-file (cl-source-file) ())
(defsystem :named-readtables
:description "Library that creates a namespace for named readtable akin to the namespace of packages."
:author "Tobias C. Rittweiler <trittweiler@common-lisp.net>"
:version "1.0 (unpublished so far)"
:licence "BSD"
:serial t
:default-component-class named-readtables-source-file
:components
((:file "package")
(:file "without-package-locks" :depends-on ("package"))
(:file "utils" :depends-on ("package" "without-package-locks"))
(:file "utils" :depends-on ("package"))
(:file "cruft" :depends-on ("package" "utils"))
(:file "named-readtables" :depends-on ("package" "utils" "cruft"))))
\ No newline at end of file
(:file "named-readtables" :depends-on ("package" "utils" "cruft"))))
#+sbcl
(defmethod perform :around ((operation compile-op)
(c named-readtables-source-file))
(let ((sb-ext:*derive-function-types* t))
(call-next-method)))
\ No newline at end of file
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