272 |
(defun structure-slotd-accessor-symbol (slotd) |
(defun structure-slotd-accessor-symbol (slotd) |
273 |
(second slotd)) |
(second slotd)) |
274 |
|
|
275 |
(defun structure-slotd-writer-function (slotd) |
;(defun structure-slotd-writer-function (slotd) |
276 |
|
; (third slotd)) |
277 |
|
|
278 |
|
(defun structure-slotd-reader-function (slotd) |
279 |
(third slotd)) |
(third slotd)) |
280 |
|
|
281 |
|
(defun structure-slotd-writer-function (slotd) |
282 |
|
(fourth slotd)) |
283 |
|
|
284 |
(defun renew-sys-files() |
(defun renew-sys-files() |
285 |
;; packages: |
;; packages: |
286 |
(compiler::get-packages "sys-package.lisp") |
(compiler::get-packages "sys-package.lisp") |