July 2004 - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS update: movitz/multiboot.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv19683 Modified Files: multiboot.lisp Log Message: Patch from Eric Marsden. Date: Wed Jul 28 07:23:37 2004 Author: ffjeld Index: movitz/multiboot.lisp diff -u movitz/multiboot.lisp:1.4 movitz/multiboot.lisp:1.5 --- movitz/multiboot.lisp:1.4 Thu Mar 25 17:42:45 2004 +++ movitz/multiboot.lisp Wed Jul 28 07:23:37 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Jun 12 12:14:12 2002 ;;;; -;;;; $Id: multiboot.lisp,v 1.4 2004/03/26 01:42:45 ffjeld Exp $ +;;;; $Id: multiboot.lisp,v 1.5 2004/07/28 14:23:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -43,7 +43,7 @@ :binary-type lu32 :initform 0 :map-binary-write (lambda (x type) - (declare (ignore x y)) + (declare (ignore x type)) (- (sizeof 'multiboot-header) 8))) (magic :accessor magic

1 0

[movitz-cvs] CVS update: movitz/losp/los0.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv20160 Modified Files: los0.lisp Log Message: The repl package was renamed, so the init defpackage form needs updating too. The other changes to this file is just my messing around with testing various bits and pieces. Date: Wed Jul 28 07:15:17 2004 Author: ffjeld Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.19 movitz/losp/los0.lisp:1.20 --- movitz/losp/los0.lisp:1.19 Mon Jul 12 19:39:13 2004 +++ movitz/losp/los0.lisp Wed Jul 28 07:15:17 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.19 2004/07/13 02:39:13 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.20 2004/07/28 14:15:17 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -28,17 +28,21 @@ (require :lib/repl) (defpackage muerte.init - (:use muerte.cl muerte muerte.lib - muerte.x86-pc - muerte.readline - muerte.toplevel - muerte.ethernet - muerte.ip6 - muerte.ip4 - muerte.mop + (:nicknames #:los0) + (:use #:common-lisp + #:muerte + #:muerte.lib + #:muerte.x86-pc + #:repl + #:muerte.readline + #:muerte.toplevel + #:muerte.ethernet + #:muerte.ip6 + #:muerte.ip4 + #:muerte.mop #+ignore muerte.x86-pc.serial)) -(require :los0-gc) +(require :los0-gc) ; Must come after defpackage. (in-package muerte.init) @@ -657,7 +661,7 @@ (loop while (= s0 (rtc-register :second))) (multiple-value-bind (c1-lo c1-hi) (read-time-stamp-counter) - (+ (ash (- c1-hi c0-hi) 20) + (+ (ash (- c1-hi c0-hi) 19) (ash (+ 512 (- c1-lo c0-lo)) -10)))))) (defun report-cpu-frequency () @@ -666,6 +670,13 @@ (format t "~&CPU frequency: ~D.~2,'0D MHz.~%" mhz (round khz 10))) (values)) +(defvar *a* #(#x1 #x2 #x3 #x4 #x5 #x6 #x7 #x8)) +(defvar *b* #(#x5 #xa #xf #x14 #x19 #x1e #x23 #x28 #x1400 #x1e00 #x2800 #x3200 + #x3c00 #x4600 #x5000 #xa00 #x50 #x64 #x78 #x8c #xa0 #x14 #x28 #x3c + #xc800 #xf001 #x1801 #x4000 #x2800 #x5000 #x7800 #xa000 #x230 #x280 + #x50 #xa0 #xf0 #x140 #x190 #x1e0 #x0 #xa001 #x4001 #xe002 #x8003 + #x2003 #xc004 #x6005 #x280 #x3c0 #x500 #x640)) + (defvar *cpu-frequency-mhz*) (defun init-nano-sleep () @@ -685,6 +696,10 @@ ;;;;; +(defvar div #xa65feaab511c61e33df38fdddaf03b59b6f25e1fa4de57e5cf00ae478a855dda4f3638d38bb00ac4af7d8414c3fb36e04fbdf3d3166712d43b421bfa757e85694ad27c48f396d03c8bce8da58db5b82039f35dcf857235c2f1c73b2226a361429190dcb5b6cd0edfb0ff6933900b02cecc0ce69274d8dae7c694804318d6d6b9) + +(defvar guess #x1dc19f99401de22d476c89943491fc187b80bcfa8293ec1cf69c1a81352f047e894e262d24116c82ad0be241c6c6216cab9b66d64417d43bf433db10114c0) + ;;;;;;;;;;;;;;; CL (defun install-internal-time (&optional (minimum-frequency 100)) @@ -753,7 +768,7 @@ (define-toplevel-command :bt (&rest args) (declare (dynamic-extent args)) - (apply #'backtrace args)) + (apply #'backtrace (mapcar #'eval args))) (define-toplevel-command :cpu-reset () (when (y-or-n-p "Really reset CPU?") @@ -782,7 +797,7 @@ (define-toplevel-command :z (&optional x-list) (flet ((do-print (x) - (format t "~&~Z => ~S" x x) + (format t "~&~Z" x) x)) (if x-list (do-print (eval x-list)) @@ -959,6 +974,9 @@ (with-simple-restart (abort "Abort to command level ~D." (1+ *repl-level*)) (read-eval-print))))) +(defun ub (x) + `(hello world ,x or . what)) + (defun random (limit) (etypecase limit (fixnum @@ -968,27 +986,57 @@ (dotimes (i (1- (muerte::%bignum-bigits x))) (setf (memref x 2 i :unsigned-byte32) (muerte::read-time-stamp-counter))) - (setf x (muerte::%bignum-canonicalize x)) + (setf x (muerte::bignum-canonicalize x)) (loop while (>= x limit) do (setf x (truncate x 2))) x)))) +(define-primitive-function test-irq-pf () + "" + (with-inline-assembly (:returns :nothing) + (:int 113) + (:ret))) + +(defun test-irq (&optional eax ebx ecx edx) + (setf (memref nil #x7f 20 :code-vector) (symbol-value 'test-irq-pf)) + (multiple-value-bind (p1 p2) + (with-inline-assembly (:returns :multiple-values) + (:load-lexical (:lexical-binding eax) :eax) + (:load-lexical (:lexical-binding ebx) :ebx) + (:load-lexical (:lexical-binding ecx) :ecx) + (:load-lexical (:lexical-binding edx) :edx) + (:pushl :eax) + (:pushl :ebx) + (:jecxz 'dont-call) + (:globally (:call (:edi (:edi-offset values) 80))) + dont-call + (:store-lexical (:lexical-binding eax) :eax :type t) + (:store-lexical (:lexical-binding ebx) :ebx :type t) + (:store-lexical (:lexical-binding ecx) :ecx :type t) + (:store-lexical (:lexical-binding edx) :edx :type t) + (:popl :ebx) + (:popl :eax) + (:movl 2 :ecx) + (:stc)) + (values eax ebx ecx edx p1 p2))) + (defun genesis () - #+ignore (let ((extended-memsize 0)) ;; Find out how much extended memory we have (setf (io-port #x70 :unsigned-byte8) #x18) (setf extended-memsize (* 256 (io-port #x71 :unsigned-byte8))) (setf (io-port #x70 :unsigned-byte8) #x17) (incf extended-memsize (io-port #x71 :unsigned-byte8)) - (format t "Extended memory: ~D KB" extended-memsize)) + (format t "Extended memory: ~D KB~%" extended-memsize) - (idt-init) - (install-los0-consing) + (idt-init) + (install-los0-consing :kb-size 50) + #+ignore + (install-los0-consing :kb-size (max 100 (truncate (- extended-memsize 1024 2048) 2)))) (setf *debugger-function* #'los0-debugger) (let ((*repl-readline-context* (make-readline-context :history-size 16)) - (*backtrace-stack-frame-barrier* (stack-frame-uplink (current-stack-frame))) + #+ignore (*backtrace-stack-frame-barrier* (stack-frame-uplink (current-stack-frame))) #+ignore (*error-no-condition-for-debugger* t) #+ignore (*debugger-function* #'los0-debugger) (*package* nil))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19181 Modified Files: typep.lisp Log Message: In the deftype expander, try to be a bit more clever about when to avoid (cl:deftype cl:whatever ..). The previous detection code apparently didn't work under sbcl or cmucl. Date: Wed Jul 28 05:30:35 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.33 movitz/losp/muerte/typep.lisp:1.34 --- movitz/losp/muerte/typep.lisp:1.33 Tue Jul 27 02:22:21 2004 +++ movitz/losp/muerte/typep.lisp Wed Jul 28 05:30:34 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.33 2004/07/27 09:22:21 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.34 2004/07/28 12:30:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -429,7 +429,7 @@ (let ((fname (intern (format nil "~A-~A" 'deftype name)))) `(progn (eval-when (:compile-toplevel) - (unless (eq (symbol-package ',name) (find-package :common-lisp)) + (unless (eq (symbol-package (car ',form)) (find-package :common-lisp)) ,form) (setf (gethash (translate-program ',name :cl :muerte.cl) *compiler-derived-typespecs*)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/run-time-context.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv9076 Modified Files: run-time-context.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code. Date: Wed Jul 28 03:01:23 2004 Author: ffjeld Index: movitz/losp/muerte/run-time-context.lisp diff -u movitz/losp/muerte/run-time-context.lisp:1.10 movitz/losp/muerte/run-time-context.lisp:1.11 --- movitz/losp/muerte/run-time-context.lisp:1.10 Tue Jul 20 01:54:48 2004 +++ movitz/losp/muerte/run-time-context.lisp Wed Jul 28 03:01:23 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 12 18:33:02 2003 ;;;; -;;;; $Id: run-time-context.lisp,v 1.10 2004/07/20 08:54:48 ffjeld Exp $ +;;;; $Id: run-time-context.lisp,v 1.11 2004/07/28 10:01:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -48,7 +48,7 @@ (equal context '(current-run-time-context)))) form (let ((slot-name (movitz:movitz-eval slot-name env))) - (ecase (bt:binary-slot-type 'movitz::movitz-constant-block (intern (symbol-name slot-name) :movitz)) + (ecase (bt:binary-slot-type 'movitz::movitz-run-time-context (intern (symbol-name slot-name) :movitz)) (movitz:word `(with-inline-assembly (:returns :eax) (:compile-form (:result-mode :eax) ,value) @@ -114,8 +114,8 @@ (defun clone-run-time-context (&key (parent (current-run-time-context)) (name :anonymous)) (check-type parent run-time-context) - (let ((context (malloc-pointer-words #.(cl:truncate (bt:sizeof 'movitz::movitz-constant-block) 4)))) - (memcopy context parent -6 0 0 #.(bt:sizeof 'movitz::movitz-constant-block) + (let ((context (malloc-pointer-words #.(cl:truncate (bt:sizeof 'movitz::movitz-run-time-context) 4)))) + (memcopy context parent -6 0 0 #.(bt:sizeof 'movitz::movitz-run-time-context) :unsigned-byte8) (setf (%run-time-context-slot 'name context) name (%run-time-context-slot 'self context) context)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/more-macros.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv8528 Modified Files: more-macros.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code. Date: Wed Jul 28 03:01:16 2004 Author: ffjeld Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.16 movitz/losp/muerte/more-macros.lisp:1.17 --- movitz/losp/muerte/more-macros.lisp:1.16 Tue Jul 20 16:51:15 2004 +++ movitz/losp/muerte/more-macros.lisp Wed Jul 28 03:01:16 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.16 2004/07/20 23:51:15 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.17 2004/07/28 10:01:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -328,7 +328,8 @@ (equal context '(current-run-time-context)))) form (let ((slot-name (movitz::eval-form slot-name env))) - (ecase (bt:binary-slot-type 'movitz::movitz-constant-block (intern (symbol-name slot-name) :movitz)) + (ecase (bt:binary-slot-type 'movitz::movitz-run-time-context + (intern (symbol-name slot-name) :movitz)) (movitz::word `(with-inline-assembly (:returns :eax) (:locally (:movl (:edi (:edi-offset ,slot-name)) :eax))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7232 Modified Files: los-closette.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code. Date: Wed Jul 28 03:01:11 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.17 movitz/losp/muerte/los-closette.lisp:1.18 --- movitz/losp/muerte/los-closette.lisp:1.17 Fri Jul 23 18:30:49 2004 +++ movitz/losp/muerte/los-closette.lisp Wed Jul 28 03:01:11 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.17 2004/07/24 01:30:49 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.18 2004/07/28 10:01:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -993,10 +993,10 @@ (defclass run-time-context (t) () (:metaclass built-in-class) - (:size #.(bt:sizeof 'movitz::movitz-constant-block)) - (:slot-map #.(movitz::slot-map 'movitz::movitz-constant-block - (cl:+ (bt:slot-offset 'movitz::movitz-constant-block - 'movitz::constant-block-start) + (:size #.(bt:sizeof 'movitz::movitz-run-time-context)) + (:slot-map #.(movitz::slot-map 'movitz::movitz-run-time-context + (cl:+ (bt:slot-offset 'movitz::movitz-run-time-context + 'movitz::run-time-context-start) 0)))) (defclass stream () ())

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6574 Modified Files: inspect.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code. Date: Wed Jul 28 03:01:06 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.32 movitz/losp/muerte/inspect.lisp:1.33 --- movitz/losp/muerte/inspect.lisp:1.32 Tue Jul 27 02:19:14 2004 +++ movitz/losp/muerte/inspect.lisp Wed Jul 28 03:01:06 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.32 2004/07/27 09:19:14 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.33 2004/07/28 10:01:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -303,7 +303,7 @@ (run-time-context (<= object-location location - (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-constant-block)))) + (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-run-time-context)))) (std-instance (<= object-location location

1 0

[movitz-cvs] CVS update: movitz/stream-image.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv3585 Modified Files: stream-image.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code. Date: Wed Jul 28 03:00:59 2004 Author: ffjeld Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.9 movitz/stream-image.lisp:1.10 --- movitz/stream-image.lisp:1.9 Fri Jul 23 08:34:36 2004 +++ movitz/stream-image.lisp Wed Jul 28 03:00:59 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Aug 27 14:46:50 2001 ;;;; -;;;; $Id: stream-image.lisp,v 1.9 2004/07/23 15:34:36 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.10 2004/07/28 10:00:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -51,7 +51,7 @@ (value) "Unable to set memory-stream's file-position to #x~X." value)) -(defmethod image-constant-block ((image stream-image)) +(defmethod image-run-time-context ((image stream-image)) (movitz-word (image-register32 image :edi))) (defmethod movitz-word-by-image ((image stream-image) word) @@ -65,11 +65,11 @@ (make-instance 'movitz-character :char (code-char (ldb (byte 8 8) word)))) (:null #+ignore - (assert (= (- word (tag :null)) (image-constant-block-address image)) (word) + (assert (= (- word (tag :null)) (image-run-time-context-address image)) (word) "The word #x~8,'0X has NIL tag but isn't NIL." word) (setf (image-stream-position image) 0 #+ignore (- word (tag :null))) - (let ((object (read-binary 'movitz-constant-block (image-stream image)))) - (setf (movitz-heap-object-word (movitz-constant-block-null-symbol object)) + (let ((object (read-binary 'movitz-run-time-context (image-stream image)))) + (setf (movitz-heap-object-word (movitz-run-time-context-null-symbol object)) word) object)) (:symbol

1 0

[movitz-cvs] CVS update: movitz/storage-types.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv1619 Modified Files: storage-types.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code. Date: Wed Jul 28 03:00:50 2004 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.33 movitz/storage-types.lisp:1.34 --- movitz/storage-types.lisp:1.33 Tue Jul 27 02:13:36 2004 +++ movitz/storage-types.lisp Wed Jul 28 03:00:50 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.33 2004/07/27 09:13:36 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.34 2004/07/28 10:00:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -621,7 +621,7 @@ (assert (eq type 'word)) (cond ((eq 'muerte::unbound obj) - (binary-slot-value (image-constant-block *image*) 'unbound-function)) + (binary-slot-value (image-run-time-context *image*) 'unbound-function)) ((typep obj 'movitz-funobj) (movitz-intern obj)) ((symbolp obj) @@ -987,7 +987,7 @@ (length :binary-type lu16 :initarg :length - :accessor movitz-bignum-length + :accessor movitz-struct-length :map-binary-write (lambda (x &optional type) (declare (ignore type)) (check-type x (unsigned-byte 14))

1 0

[movitz-cvs] CVS update: movitz/special-operators.lisp
by Frode Vatvedt Fjeld 28 Jul '04

28 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv31778 Modified Files: special-operators.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code. Date: Wed Jul 28 03:00:45 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.32 movitz/special-operators.lisp:1.33 --- movitz/special-operators.lisp:1.32 Fri Jul 23 18:30:32 2004 +++ movitz/special-operators.lisp Wed Jul 28 03:00:45 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.32 2004/07/24 01:30:32 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.33 2004/07/28 10:00:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -632,7 +632,7 @@ (cdr form) (assert (not argument)) (compiler-values () - :code `((:call (:edi ,(slot-offset 'movitz-constant-block if-name)))) + :code `((:call (:edi ,(slot-offset 'movitz-run-time-context if-name)))) :returns :nothing))) (define-special-operator inlined-not (&all forward &form form &result-mode result-mode)

1 0