+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+"
:hidden hidden :class class :html-id html-id
:auto-place auto-place)
'asdf-systems)))
+ (setf (slot-value panel 'dir-button)
+ (attach-as-child clog-obj "CLOG97042" :clog-type 'clog:clog-button
+ :new-id t))
+ (setf (slot-value panel 'remove-button)
+ (attach-as-child clog-obj "CLOG97043" :clog-type 'clog:clog-button
+ :new-id t))
+ (setf (slot-value panel 'reload-button)
+ (attach-as-child clog-obj "CLOG97044" :clog-type 'clog:clog-button
+ :new-id t))
+ (setf (slot-value panel 'load-new-button)
+ (attach-as-child clog-obj "CLOG97045" :clog-type 'clog:clog-button
+ :new-id t))
+ (setf (slot-value panel 'reset-list-button)
+ (attach-as-child clog-obj "CLOG97046" :clog-type 'clog:clog-button
+ :new-id t))
+ (setf (slot-value panel 'button-panel)
+ (attach-as-child clog-obj "CLOG97047" :clog-type 'clog:clog-div
+ :new-id t))
+ (setf (slot-value panel 'source-file)
+ (attach-as-child clog-obj "CLOG97048" :clog-type
+ 'clog:clog-form-element :new-id t))
(setf (slot-value panel 'pop-open-clog-label)
- (attach-as-child clog-obj "CLOGB392036565720" :clog-type
- 'clog:clog-label :new-id t))
+ (attach-as-child clog-obj "CLOG97049" :clog-type 'clog:clog-label
+ :new-id t))
(setf (slot-value panel 'pop-open-clog)
- (attach-as-child clog-obj "CLOGB392036562618" :clog-type
+ (attach-as-child clog-obj "CLOG97050" :clog-type
'clog:clog-form-element :new-id t))
(setf (slot-value panel 'ext-open-source-label)
- (attach-as-child clog-obj "CLOGB392036564519" :clog-type
- 'clog:clog-label :new-id t))
+ (attach-as-child clog-obj "CLOG97051" :clog-type 'clog:clog-label
+ :new-id t))
(setf (slot-value panel 'ext-open-source)
- (attach-as-child clog-obj "CLOGB392036561317" :clog-type
+ (attach-as-child clog-obj "CLOG97052" :clog-type
'clog:clog-form-element :new-id t))
+ (setf (slot-value panel 'check-grid)
+ (attach-as-child clog-obj "CLOG97053" :clog-type 'clog:clog-div
+ :new-id t))
(setf (slot-value panel 'asd-label)
- (attach-as-child clog-obj "CLOGB3920365588" :clog-type
- 'clog:clog-label :new-id t))
- (setf (slot-value panel 'dir-button)
- (attach-as-child clog-obj "CLOGB3920365587" :clog-type
- 'clog:clog-button :new-id t))
- (setf (slot-value panel 'remove-button)
- (attach-as-child clog-obj "CLOGB3920365586" :clog-type
- 'clog:clog-button :new-id t))
- (setf (slot-value panel 'reload-button)
- (attach-as-child clog-obj "CLOGB3920365585" :clog-type
- 'clog:clog-button :new-id t))
- (setf (slot-value panel 'load-new-button)
- (attach-as-child clog-obj "CLOGB3920365584" :clog-type
- 'clog:clog-button :new-id t))
- (setf (slot-value panel 'reset-list-button)
- (attach-as-child clog-obj "CLOGB3920365583" :clog-type
- 'clog:clog-button :new-id t))
- (setf (slot-value panel 'button-panel)
- (attach-as-child clog-obj "CLOGB3920365582" :clog-type
- 'clog:clog-div :new-id t))
- (setf (slot-value panel 'source-file)
- (attach-as-child clog-obj "CLOGB3920365581" :clog-type
- 'clog:clog-form-element :new-id t))
+ (attach-as-child clog-obj "CLOG97054" :clog-type 'clog:clog-label
+ :new-id t))
(setf (slot-value panel 'files)
- (attach-as-child clog-obj "CLOGB3920365580" :clog-type
- 'clog:clog-select :new-id t))
+ (attach-as-child clog-obj "CLOG97055" :clog-type 'clog:clog-select
+ :new-id t))
(setf (slot-value panel 'files-label)
- (attach-as-child clog-obj "CLOGB3920365579" :clog-type
- 'clog:clog-label :new-id t))
+ (attach-as-child clog-obj "CLOG97056" :clog-type 'clog:clog-label
+ :new-id t))
(setf (slot-value panel 'deps)
- (attach-as-child clog-obj "CLOGB3920365578" :clog-type
- 'clog:clog-select :new-id t))
+ (attach-as-child clog-obj "CLOG97057" :clog-type 'clog:clog-select
+ :new-id t))
(setf (slot-value panel 'deps-label)
- (attach-as-child clog-obj "CLOGB3920365577" :clog-type
- 'clog:clog-label :new-id t))
+ (attach-as-child clog-obj "CLOG97058" :clog-type 'clog:clog-label
+ :new-id t))
(setf (slot-value panel 'loaded-systems)
- (attach-as-child clog-obj "CLOGB3920365576" :clog-type
- 'clog:clog-select :new-id t))
+ (attach-as-child clog-obj "CLOG97059" :clog-type 'clog:clog-select
+ :new-id t))
(setf (slot-value panel 'sys-label)
- (attach-as-child clog-obj "CLOGB3920365575" :clog-type
- 'clog:clog-label :new-id t))
+ (attach-as-child clog-obj "CLOG97060" :clog-type 'clog:clog-label
+ :new-id t))
+ (setf (slot-value panel 'sysgrid)
+ (attach-as-child clog-obj "CLOG97061" :clog-type 'clog:clog-div
+ :new-id t))
(let ((target (sys-label panel)))
(declare (ignorable target))
(setf (attribute target "for")
@@ -156,6 +200,6 @@
(lambda (target)
(declare (ignorable target))
(on-dir-tree panel :dir
- (asdf:system-source-directory
+ (asdf/system:system-source-directory
(text-value (loaded-systems panel))))))
- panel))
+ panel))
\ No newline at end of file