Skip to content
Browse files

allow for clisp's with no sys::%make-closure

darcs-hash:20100511095119-f96f7-1a66afbdbde45fb42ad1c9580f7187bbdca2d348.gz
  • Loading branch information...
1 parent bed778f commit 1d9d11aab6b1c7c16d3a32be9048249917bb6cdd @sross sross committed May 11, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 clisp/custom.lisp
View
2 clisp/custom.lisp
@@ -40,7 +40,7 @@
(declare (ignore closure-p))
(if codevec ;; compiled
;; TODO What is a suitable default seclass? Currently ()
- (sys::%make-closure name codevec consts () lambda-list doc)
+ (funcall (find-symbol "%MAKE-CLOSURE" "SYS") name codevec consts () lambda-list doc)
;; TODO Any functions to do this programmatically? How to
;; store/restore dynamic, lexical, etc environment.
(eval lambda-exp)))))

0 comments on commit 1d9d11a

Please sign in to comment.
Something went wrong with that request. Please try again.