(list (quote quote) (, bodyform))
(,@ (mapcar
(if var
- (lambda (h)
- (` ((, (car h))
- (list (quote funcall)
- (lambda ((, var)) (,@ (cdr h)))
- (list (quote quote) (, var))))))
- (lambda (h)
- (` ((, (car h)) (quote (progn (,@ (cdr h))))))))
+ (function
+ (lambda (h)
+ (` ((, (car h))
+ (list (quote funcall)
+ (function (lambda ((, var)) (,@ (cdr h))))
+ (list (quote quote) (, var)))))))
+ (function
+ (lambda (h)
+ (` ((, (car h)) (quote (progn (,@ (cdr h)))))))))
handlers))))))
(put 'static-defconst 'lisp-indent-function 'defun)
;;; @ end
;;;
-(provide 'static)
+(require 'product)
+(product-provide (provide 'static) (require 'apel-ver))
;;; static.el ends here