Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'

[clinton/lisp-on-lines.git] / src / ucw / packages.lisp

diff --git a/src/ucw/packages.lisp b/src/ucw/packages.lisp
dissimilarity index 93%
index 3f43698..99348c6 100644 (file)
--- a/src/ucw/packages.lisp
+++ b/src/ucw/packages.lisp
@@ -1,101 +1,17 @@
-
-(defpackage lisp-on-lines-ucw
-  (:documentation "An LoL Layer over ucw.basic")
-  (:nicknames #:lol-ucw)
-  (:use #:lisp-on-lines #:ucw :common-lisp :arnesi :yaclml :puri)
-  (:shadow 
-   #:standard-window-component
-   #:make-action
-   #:standard-action
-   #:uri-parse-error
-   #:standard-application)
-
-  (:shadowing-import-from :ucw
-   #:parent)
-  
-  (:import-from :ucw
-   #:register-action-in-frame
-   #:+action-parameter-name+
-   #:context.current-frame
-   #:uri.query
-   #:*current-component*
-   #:find-action
-   #:service)
-               
-  (:export 
-   ;;; Symbols marked ";*" are not from UCW 
-   ;;; but either shadowed or created for lol. 
-
-   #:defcomponent
-
-   #:uri.query
-   
-   ;; Standard Server
-   #:standard-server
-   #:startup-server
-   #:shutdown-server
-
-
-   ;; Standard Application
-   #:standard-application
-   #:register-application
-   #:service
-
-   ;; Standard Request Context
-   #:*context*
-   #:context.current-frame
-   #:context.window-component
-
-
-   ;; Actions
-   #:call
-   #:make-action
-   #:find-action
-   #:defaction
-   #:defmethod/cc
-
-   #:call-component
-   #:answer-component
-
-   ;; Entry Points   
-   #:defentry-point
-
-   ;; Standard Components
-   #:render
-   #:component
-   #:standard-component-class
-   
-   #:standard-window-component ;*
-   #:window-body
-
-   ))
-
-(defpackage :lisp-on-lines-tags
-  (:documentation "LoL convience yaclml tags.")
-  (:use)
-  (:nicknames #:<lol)
-  (:export
-   #:component-body
-   #:render-component
-   #:a
-   #:area
-   #:form
-   #:input
-   #:button
-   #:simple-select
-   #:select
-   #:option
-   #:textarea
-
-   #:integer-range-select
-   #:month-day-select
-   #:month-select
-
-   #:text
-   #:password
-   #:submit
-   #:simple-form
-   #:simple-submit
-
-   #:localized
-   #:script))
\ No newline at end of file
+
+(defpackage lisp-on-lines-ucw
+  (: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)
+  (:import-from :ucw-standard 
+       #:call #:answer #:defaction #:*source-component*)
+  (: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