movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

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

22 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5347 Modified Files: storage-types.lisp Log Message: Changed the signature and workings of make-movitz-vector somewhat: Now the element-type argument is an actual (host) type-specifier. The idea is that movitz-read of an array will result in a movitz array with the corresponding element-type. Date: Wed Jul 21 17:27:22 2004 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.29 movitz/storage-types.lisp:1.30 --- movitz/storage-types.lisp:1.29 Wed Jul 21 07:15:13 2004 +++ movitz/storage-types.lisp Wed Jul 21 17:27:22 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.29 2004/07/21 14:15:13 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.30 2004/07/22 00:27:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -441,18 +441,30 @@ 8))) (defun movitz-vector-upgrade-type (type) - (case type - (movitz-unboxed-integer-u8 - (values :u8 0)) - (movitz-unboxed-integer-u32 - (values :u32 0)) - (movitz-character - (values :character #\null)) - (movitz-code - (values :code 0)) - (t (values :any-t nil)))) + (cond + ((eq type 'code) + (values :code 0)) + ((subtypep type '(unsigned-byte 8)) + (values :u8 0)) + ((subtypep type '(unsigned-byte 16)) + (values :u16 0)) + ((subtypep type '(unsigned-byte 32)) + (values :u32 0)) + ((subtypep type 'character) + (values :character #\null)) + (t (values :any-t nil))) + #+ignore (case type + (movitz-unboxed-integer-u8 + (values :u8 0)) + (movitz-unboxed-integer-u32 + (values :u32 0)) + (movitz-character + (values :character #\null)) + (movitz-code + (values :code 0)) + (t (values :any-t nil)))) -(defun make-movitz-vector (size &key (element-type 'movitz-object) +(defun make-movitz-vector (size &key (element-type t) (initial-contents nil) (initial-element *movitz-nil* initial-element-p) (alignment 8) @@ -462,13 +474,13 @@ (assert (or (null initial-contents) (= size (length initial-contents))) (size initial-contents) "The initial-contents must be the same length as SIZE.") - (assert (subtypep element-type 'movitz-object) () - "ELEMENT-TYPE must be a subtype of MOVITZ-OBJECT.") - (assert (or initial-contents - (not initial-element-p) - (typep initial-element element-type)) () - "INITIAL-ELEMENT's type ~A is not of ELEMENT-TYPE ~A." - (type-of initial-element) element-type) +;;; (assert (subtypep element-type 'movitz-object) () +;;; "ELEMENT-TYPE must be a subtype of MOVITZ-OBJECT.") +;;; (assert (or initial-contents +;;; (not initial-element-p) +;;; (typep initial-element element-type)) () +;;; "INITIAL-ELEMENT's type ~A is not of ELEMENT-TYPE ~A." +;;; (type-of initial-element) element-type) (assert (and (>= (log alignment 2) 3) (zerop (rem (log alignment 2) 1))) (alignment) @@ -489,14 +501,17 @@ (make-instance 'movitz-basic-vector :element-type et :num-elements size - :symbolic-data initial-contents ;; sv + :symbolic-data (case et + (:any-t + (map 'vector #'movitz-read initial-contents)) + (t initial-contents)) :fill-pointer (if (integerp fill-pointer) fill-pointer size)))) (defun make-movitz-string (string) (make-movitz-vector (length string) - :element-type 'movitz-character + :element-type 'character :initial-contents (map 'list #'identity string))) ;; (map 'list #'make-movitz-character string))) @@ -1177,8 +1192,8 @@ bytes))))) (let ((l32 (merge-bytes byte-list 8 32))) (movitz-intern (make-movitz-vector (length l32) - :element-type 'movitz-unboxed-integer-u32 - :initial-contents l32))))) + :element-type '(unsigned-byte 32) + :initial-contents l32))))) ;;; std-instance

1 0

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

22 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv4299 Modified Files: image.lisp Log Message: Changed the signature and workings of make-movitz-vector somewhat: Now the element-type argument is an actual (host) type-specifier. The idea is that movitz-read of an array will result in a movitz array with the corresponding element-type. Date: Wed Jul 21 17:27:17 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.48 movitz/image.lisp:1.49 --- movitz/image.lisp:1.48 Wed Jul 21 05:32:26 2004 +++ movitz/image.lisp Wed Jul 21 17:27:17 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.48 2004/07/21 12:32:26 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.49 2004/07/22 00:27:17 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1438,7 +1438,8 @@ (setf (gethash expr (image-string-constants *image*)) (make-movitz-string expr)))) (vector (make-movitz-vector (length expr) - :initial-contents (map 'vector #'movitz-read expr))) + :element-type (array-element-type expr) + :initial-contents expr)) (cons (or (gethash expr (image-cons-constants *image*)) (setf (gethash expr (image-cons-constants *image*))

1 0

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

22 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv2848 Modified Files: compiler.lisp Log Message: Changed the signature and workings of make-movitz-vector somewhat: Now the element-type argument is an actual (host) type-specifier. The idea is that movitz-read of an array will result in a movitz array with the corresponding element-type. Date: Wed Jul 21 17:27:11 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.81 movitz/compiler.lisp:1.82 --- movitz/compiler.lisp:1.81 Wed Jul 21 15:26:55 2004 +++ movitz/compiler.lisp Wed Jul 21 17:27:11 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.81 2004/07/21 22:26:55 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.82 2004/07/22 00:27:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -108,7 +108,7 @@ (case label (:nil-value (image-nil-word *image*))))))) (make-movitz-vector (length code-vector) - :element-type 'movitz-code + :element-type 'code :initial-contents code-vector))) (defun register-function-code-size (funobj) @@ -873,7 +873,7 @@ (setf (movitz-funobj-code-vector funobj) (make-movitz-vector (length code-vector) :fill-pointer code-length - :element-type 'movitz-code + :element-type 'code :initial-contents code-vector )))) funobj)

1 0

[movitz-cvs] CVS update: movitz/losp/tmp/packet.lisp
by Frode Vatvedt Fjeld 21 Jul '04

21 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/tmp In directory common-lisp.net:/tmp/cvs-serv22560 Modified Files: packet.lisp Log Message: Don't entirely skip the reader-macro stuff for the movitz side. Date: Wed Jul 21 15:37:07 2004 Author: ffjeld Index: movitz/losp/tmp/packet.lisp diff -u movitz/losp/tmp/packet.lisp:1.2 movitz/losp/tmp/packet.lisp:1.3 --- movitz/losp/tmp/packet.lisp:1.2 Wed Jul 21 05:33:54 2004 +++ movitz/losp/tmp/packet.lisp Wed Jul 21 15:37:06 2004 @@ -270,7 +270,7 @@ ;;; ;;; The read syntax is `#e"ff:00:1:2:3:4'. ;;; -(eval-when (:compile-toplevel #-movitz :load-toplevel #-movitz :execute) +(eval-when (:compile-toplevel :load-toplevel :execute) (defstruct (ethernet-address (:conc-name #:ethernet-address.) (:print-function print-ethernet-address)) "48-bit Ethernet MAC address." @@ -291,7 +291,8 @@ (setf (elt vec i) octet)))) (unless *read-suppress* (make-ethernet-address :octets vec))))) - + + #-movitz (set-dispatch-macro-character #\# #\e 'read-ethernet-address) (defun print-ethernet-address (address stream depth) @@ -397,7 +398,7 @@ ;;; ;;; IP addresses also have a special read-syntax: `(a)10.0.0.1'. ;;; -(eval-when (:compile-toplevel #-movitz :load-toplevel #-movitz :execute) +(eval-when (:compile-toplevel :load-toplevel :execute) (defstruct (ipv4-address (:conc-name #:ipv4-address.) (:print-function print-ipv4-address)) (octets 0 :type (array octet (4)))) @@ -416,6 +417,7 @@ (unless *read-suppress* (make-ipv4-address :octets vec))))) + #-movitz (set-macro-character #\@ 'read-ipv4-address t) (defun print-ipv4-address (address stream depth)

1 0

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

21 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv29824 Modified Files: typep.lisp Log Message: Made typep compiler-macro slighty smarter about (array ...) type-specifiers. Date: Wed Jul 21 15:36:00 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.30 movitz/losp/muerte/typep.lisp:1.31 --- movitz/losp/muerte/typep.lisp:1.30 Wed Jul 21 07:16:57 2004 +++ movitz/losp/muerte/typep.lisp Wed Jul 21 15:36:00 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.30 2004/07/21 14:16:57 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.31 2004/07/21 22:36:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -276,6 +276,8 @@ (if (not (eql dim 1)) form (cond + ((eq et '*) + (make-other-typep :basic-vector)) ((movitz:movitz-subtypep et '(unsigned-byte 8)) (make-basic-vector-typep :u8)) ((movitz:movitz-subtypep et '(unsigned-byte 32)) @@ -560,6 +562,8 @@ (define-simple-typep (hash-table hash-table-p)) (define-simple-typep (package packagep)) + +;;; (define-typep and (x &rest types) (declare (dynamic-extent types))

1 0

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

21 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6312 Modified Files: read.lisp Log Message: Fixed un-backquote for non-proper lists, like `(a b . c). Date: Wed Jul 21 15:35:15 2004 Author: ffjeld Index: movitz/losp/muerte/read.lisp diff -u movitz/losp/muerte/read.lisp:1.6 movitz/losp/muerte/read.lisp:1.7 --- movitz/losp/muerte/read.lisp:1.6 Wed Jul 21 07:15:43 2004 +++ movitz/losp/muerte/read.lisp Wed Jul 21 15:35:15 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Oct 17 21:50:42 2001 ;;;; -;;;; $Id: read.lisp,v 1.6 2004/07/21 14:15:43 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.7 2004/07/21 22:35:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,6 +19,9 @@ (in-package muerte) +(defvar *read-suppress*) +(defvar *readtable*) + (defun substring (string start end) (if (and (zerop start) (= end (length string))) string @@ -302,19 +305,6 @@ (t (return-from simple-read-from-string (simple-read-token string :start i :end end)))))) -;;;(defun read-char (&optional input-stream eof-error-p eof-value recursive-p) -;;; " => char" -;;; (declare (ignore recursive-p)) -;;; (let* ((stream (input-stream-designator input-stream)) -;;; (char (stream-read-char stream))) -;;; (cond -;;; ((not (eq :eof char)) -;;; char) -;;; (eof-error-p -;;; (error 'end-of-file :stream stream)) -;;; (t eof-value)))) - - (defun un-backquote (form level) "Dont ask.." (declare (notinline un-backquote)) @@ -340,7 +330,7 @@ (muerte::movitz-backquote (list 'list (list 'list (list 'quote 'muerte::movitz-backquote) - (un-backquote-xxx (cadr sub-form) (1+ level))))) + (un-backquote (cadr sub-form) (1+ level))))) (backquote-comma (cond ((= 0 level) @@ -354,15 +344,19 @@ (t (list 'list (list 'list (list 'quote 'backquote-comma) - (un-backquote-xxx (cadr sub-form) (1- level))))))) + (un-backquote (cadr sub-form) (1- level))))))) (backquote-comma-at (if (= 0 level) (cadr sub-form) (list 'list (list 'list (list 'quote 'backquote-comma-at) - (un-backquote-xxx (cadr sub-form) (1- level)))))) - (t (list 'list (un-backquote-xxx sub-form level))))))))))) + (un-backquote (cadr sub-form) (1- level)))))) + (t (list 'list (un-backquote sub-form level)))))) + when (not (listp (cdr sub-form-head))) + collect (list 'quote (cdr sub-form-head))) + )))) (array (error "Array backquote not implemented.")) (t (list 'quote form))))) +

1 0

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

21 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19811 Modified Files: arrays.lisp Log Message: Made array-element-type recognize bit-vectors. Wrote upgraded-array-element-type, and array-dimensions. Added a typep for array. Date: Wed Jul 21 15:33:55 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.38 movitz/losp/muerte/arrays.lisp:1.39 --- movitz/losp/muerte/arrays.lisp:1.38 Wed Jul 21 04:47:49 2004 +++ movitz/losp/muerte/arrays.lisp Wed Jul 21 15:33:55 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.38 2004/07/21 11:47:49 lgorrie Exp $ +;;;; $Id: arrays.lisp,v 1.39 2004/07/21 22:33:55 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -65,15 +65,61 @@ '(unsigned-byte 16)) (#.(bt:enum-value 'movitz::movitz-vector-element-type :u32) '(unsigned-byte 32)) + (#.(bt:enum-value 'movitz::movitz-vector-element-type :bit) + 'bit) (#.(bt:enum-value 'movitz::movitz-vector-element-type :code) 'code))) +(defun upgraded-array-element-type (type-specifier &optional environment) + "=> upgraded-type-specifier" + ;; We're in dire need of subtypep.. + (cond + ((symbolp type-specifier) + (case type-specifier + ((character base-char standard-char) + 'character) + ((code) + 'code) + (t (let ((deriver (gethash type-specifier *derived-typespecs*))) + (if (not deriver) + t + (upgraded-array-element-type (funcall deriver))))))) + ((null type-specifier) + t) + ((consp type-specifier) + (case (car type-specifier) + ((integer) + (let* ((q (cdr type-specifier)) + (min (if q (pop q) '*)) + (max (if q (pop q) '*))) + (cond + ((or (eq min '*) (eq max '*)) + t) + ((<= 0 min max 1) + 'bit) + ((<= 0 min max #xff) + '(unsigned-byte 8)) + ((<= 0 min max #xffff) + '(unsigned-byte 16)) + ((<= 0 min max #xffffffff) + '(unsigned-byte 32))))) + (t (let ((deriver (gethash (car type-specifier) *derived-typespecs*))) + (if (not deriver) + t + (upgraded-array-element-type (apply deriver (cdr type-specifier)) environment)))))) + (t t))) + + (defun array-dimension (array axis-number) (etypecase array - (simple-array + ((simple-array * 1) (assert (zerop axis-number)) (movitz-accessor array movitz-basic-vector num-elements)))) +(defun array-dimensions (array) + (check-type array array) + 1) + (defun shrink-vector (vector new-size) (setf-movitz-accessor (vector movitz-basic-vector num-elements) new-size) vector) @@ -772,3 +818,19 @@ (defun bvref-u16 (vector offset index) "View <vector> as an sequence of octets, access the big-endian 16-bit word at position <index> + <offset>." (bvref-u16 vector offset index)) + +(define-typep array (x &optional (element-type '*) (dimension-spec '*)) + (and (typep x 'array) + (or (eq element-type '*) + (eq element-type t) + (equalp (array-element-type x) + (upgraded-array-element-type element-type))) + (or (eq dimension-spec '*) + (and (integerp dimension-spec) + (= dimension-spec (array-dimensions x))) + (and (listp dimension-spec) + (do ((d 0 (1+ d)) + (q dimension-spec)) + ((null q) t) + (unless (= (pop q) (array-dimension x d)) + (return nil)))))))

1 0

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

21 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3534 Modified Files: integers.lisp Log Message: Improved the number-relational compiler-macros. Date: Wed Jul 21 15:30:52 2004 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.81 movitz/losp/muerte/integers.lisp:1.82 --- movitz/losp/muerte/integers.lisp:1.81 Wed Jul 21 07:18:03 2004 +++ movitz/losp/muerte/integers.lisp Wed Jul 21 15:30:51 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.81 2004/07/21 14:18:03 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.82 2004/07/21 22:30:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -232,20 +232,31 @@ (defmacro define-number-relational (name 2op-name condition &key (defun-p t) 3op-name) `(progn ,(when condition - `(define-compiler-macro ,2op-name (n1 n2) + `(define-compiler-macro ,2op-name (n1 n2 &environment env) (cond - ((movitz:movitz-constantp n1) - (let ((n1 (movitz::movitz-eval n1))) - (check-type n1 (signed-byte 30)) - `(with-inline-assembly (:returns ,,condition :side-effects nil) - (:compile-two-forms (:eax :ebx) ,n1 ,n2) - (:call-global-pf fast-compare-fixnum-real)))) - ((movitz:movitz-constantp n2) - (let ((n2 (movitz::movitz-eval n2))) - (check-type n2 (signed-byte 30)) - `(with-inline-assembly (:returns ,,condition :side-effects nil) - (:compile-two-forms (:eax :ebx) ,n1 ,n2) - (:call-global-pf fast-compare-real-fixnum)))) + ((and (movitz:movitz-constantp n1 env) + (movitz:movitz-constantp n2 env)) + (list ',2op-name (movitz:movitz-eval n1 env) (movitz:movitz-eval n2 env))) + ((movitz:movitz-constantp n1 env) + (let ((n1 (movitz::movitz-eval n1 env))) + (check-type n1 number) + (if (typep n1 '(signed-byte 30)) + `(with-inline-assembly (:returns ,,condition :side-effects nil) + (:compile-two-forms (:eax :ebx) ,n1 ,n2) + (:call-global-pf fast-compare-fixnum-real)) + `(with-inline-assembly (:returns ,,condition :side-effects nil) + (:compile-two-forms (:eax :ebx) ,n1 ,n2) + (:call-global-pf fast-compare-two-reals))))) + ((movitz:movitz-constantp n2 env) + (let ((n2 (movitz:movitz-eval n2 env))) + (check-type n2 number) + (if (typep n2 '(signed-byte 30)) + `(with-inline-assembly (:returns ,,condition :side-effects nil) + (:compile-two-forms (:eax :ebx) ,n1 ,n2) + (:call-global-pf fast-compare-real-fixnum)) + `(with-inline-assembly (:returns ,,condition :side-effects nil) + (:compile-two-forms (:eax :ebx) ,n1 ,n2) + (:call-global-pf fast-compare-two-reals))))) (t `(with-inline-assembly (:returns ,,condition :side-effects nil) (:compile-two-forms (:eax :ebx) ,n1 ,n2) (:call-global-pf fast-compare-two-reals))))))

1 0

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

21 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv4134 Modified Files: basic-macros.lisp Log Message: Made defpackage a bit smarter about recognizing nicknames. Date: Wed Jul 21 15:30:15 2004 Author: ffjeld Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.30 movitz/losp/muerte/basic-macros.lisp:1.31 --- movitz/losp/muerte/basic-macros.lisp:1.30 Wed Jul 21 07:17:35 2004 +++ movitz/losp/muerte/basic-macros.lisp Wed Jul 21 15:30:14 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.30 2004/07/21 14:17:35 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.31 2004/07/21 22:30:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -73,7 +73,8 @@ (pushnew '(:use) options :key #'car) (let ((uses (cdr (assoc :use options)))) (setf uses (mapcar (lambda (use) - (if (member use '(:cl :common-lisp) :test #'string=) + (if (member use (cons :common-lisp (package-nicknames :common-lisp)) + :test #'string=) :muerte.cl use)) uses))

1 0

[movitz-cvs] CVS update: movitz/losp/lib/repl.lisp
by Frode Vatvedt Fjeld 21 Jul '04

21 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv14720 Modified Files: repl.lisp Log Message: Made repl a separate package. Date: Wed Jul 21 15:29:20 2004 Author: ffjeld Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.11 movitz/losp/lib/repl.lisp:1.12 --- movitz/losp/lib/repl.lisp:1.11 Fri Apr 23 07:59:35 2004 +++ movitz/losp/lib/repl.lisp Wed Jul 21 15:29:20 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.11 2004/04/23 14:59:35 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.12 2004/07/21 22:29:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,7 +18,18 @@ (require :lib/readline) (provide :lib/repl) -(in-package muerte.lib) +(defpackage #:muerte.repl + (:documentation "Implementation of Read Eval Print Loop.") + (:nicknames #:repl) + (:use #:common-lisp #:muerte) + (:export #:*repl-level* + #:*repl-prompter* + #:*repl-prompt-context* + #:*repl-print-format* + #:*repl-readline-context* + #:read-eval-print)) + +(in-package #:muerte.repl) (defparameter *repl-level* -1) (defparameter *repl-prompter* 'default-repl-prompter)

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs