(with-dynamic-environment (,env)
,@body)))))
-(export '(dlambda) :lisp-on-lines-ucw)
-
(defclass contextl-application (standard-application)
()
(:default-initargs
(with-dynamic-environment ((action-dynamic-environment action))
(call-next-method)))
-
(defclass contextl-component (standard-component)
((component-dynamic-environment :accessor component-dynamic-environment
:initform nil))
(call-next-method))))
(defmethod/cc call-component :before ((from t) (to contextl-component))
- (setf (component-dynamic-environment to) (capture-dynamic-environment)))
+ (setf (component-dynamic-environment to) (capture-dynamic-environment)))
(in-package :lol-ucw)
+;;; Not sure what the intent of this is, unused in maxclaims --clinton
+
(defclass lol-component ()
()
(:metaclass standard-component-class))
(:documentation "An LoL Layer over ucw.basic")
(:nicknames #:lol-ucw)
(:use #:lisp-on-lines #:ucw :ucw-core :common-lisp :arnesi :contextl)
-
(:shadowing-import-from :js
#:new)
(:shadowing-import-from :ucw-core
- #:parent )
+ #:parent)
(:import-from :ucw-standard
#:call #:answer #:defaction #:*source-component*)
-
-
-
- (:export
-
- #:lol-component
- #:described-component-class))
-
+ (:export #:dlambda
+ #:described-component-class
+ #:lisp-on-lines-application
+ #:lisp-on-lines-component
+ #:lisp-on-lines-component-class
+ #:lol-component))
\ No newline at end of file
(list (find-class 'lisp-on-lines-component)))
initargs)))
-(defclass described-component-class (described-class standard-component-class )
- ())
-
-
-
-
(defmethod ucw-core:handle-action :wrap-around ((action lisp-on-lines-action) application session frame)
(let ((lol::*invalid-objects* (make-hash-table)))
(handler-bind ((lol::validation-condition
(gethash object lol::*invalid-objects*)))))))
(call-next-method))))
+(defclass described-component-class (described-class standard-component-class)
+ ())
+
+
-(defclass described-component-class (described-class standard-component-class )
- ())