February 2004 - movitz-cvs@common-lisp.net

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

14 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv8428 Modified Files: compiler.lisp Log Message: Minor edits, mostly related to type-inference. Date: Sat Feb 14 10:44:32 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.25 movitz/compiler.lisp:1.26 --- movitz/compiler.lisp:1.25 Fri Feb 13 17:05:04 2004 +++ movitz/compiler.lisp Sat Feb 14 10:44:32 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.25 2004/02/13 22:05:04 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.26 2004/02/14 15:44:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -357,7 +357,11 @@ (cond ((typep binding 'function-argument) (setf (type-analysis-encoded-type analysis) - (multiple-value-list (type-specifier-encode t)))) + (multiple-value-list + (type-specifier-encode (etypecase binding + (rest-function-argument 'list) + (supplied-p-function-argument 'boolean) + (function-argument t)))))) ((and (consp type) (eq 'binding-type (car type))) (let ((target-binding (binding-target (cadr type)))) (cond @@ -437,11 +441,17 @@ (type-analysis-binding-types analysis)) (setf (binding-store-type binding) (type-analysis-encoded-type analysis)) - #+ignore - (unless (apply #'encoded-allp (type-analysis-encoded-type analysis)) - (warn "Type: ~A => ~A" - (binding-name binding) - (apply #'encoded-type-decode (type-analysis-encoded-type analysis))))) + (when (or #+ignore (not (apply #'encoded-allp (type-analysis-encoded-type analysis))) + (multiple-value-call #'encoded-subtypep + (values-list (type-analysis-encoded-type analysis)) + (type-specifier-encode 'list))) + #+ignore + (warn "Type: ~S => ~A (~A)" + binding + (apply #'encoded-type-decode (type-analysis-encoded-type analysis)) + (multiple-value-call #'encoded-subtypep + (values-list (type-analysis-encoded-type analysis)) + (type-specifier-encode 'list))))) binding-usage)))) toplevel-funobj) @@ -494,9 +504,8 @@ (let ((store-binding (find-written-binding-and-type instruction))) (when store-binding (process-binding funobj store-binding '(:read)))) - (let ((load-binding (find-read-bindings instruction))) - (when load-binding - (process-binding funobj load-binding '(:read)))) + (dolist (load-binding (find-read-bindings instruction)) + (process-binding funobj load-binding '(:read))) (case (car instruction) (:call-lexical (process-binding funobj (second instruction) '(:call))) @@ -1167,7 +1176,7 @@ (declare (special *default-load-priority*)) (with-simple-restart (continue "Skip Movitz compilation of ~S." path) (with-retries-until-true (retry "Restart Movitz compilation of ~S." path) - (warn "Compiling ~A.." path) + ;; (warn "Compiling ~A.." path) (let* ((muerte.cl::*compile-file-pathname* path) (*package* (find-package :muerte)) (funobj (make-instance 'movitz-funobj-pass1 @@ -2423,9 +2432,8 @@ (incf (getf p :lended-count 0)) (setf (getf p :dynamic-extent-p) (and (getf p :dynamic-extent-p t) dynamic-extent-p)))))) - (let ((load-binding (find-read-bindings instruction))) - (when load-binding - (take-note-of-binding load-binding))) + (mapcar #'take-note-of-binding + (find-read-bindings instruction)) (let ((store-binding (find-written-binding-and-type instruction))) (when store-binding (take-note-of-binding store-binding t))) @@ -2579,9 +2587,9 @@ (dolist (instruction code) (when (consp instruction) (let ((x (or (when load - (let ((load-binding (find-read-bindings instruction))) - (when load-binding - (binding-eql binding load-binding)))) + (some (lambda (read-binding) + (binding-eql read-binding binding)) + (find-read-bindings instruction))) (when store (let ((store-binding (find-written-binding-and-type instruction))) (when store-binding @@ -5174,7 +5182,9 @@ (let* ((operator (car extended-instruction)) (finder (gethash operator *extended-code-find-read-binding*))) (when finder - (funcall finder extended-instruction))))) + (let ((result (funcall finder extended-instruction))) + (check-type result list "a list of read bindings") + result))))) (defvar *extended-code-find-write-binding-and-type* (make-hash-table :test #'eq)) @@ -5235,6 +5245,15 @@ (binding `(binding-type ,binding)))) +(defun binding-store-subtypep (binding type-specifier) + "Is type-specifier a subtype of all values ever stored to binding? + (Assuming analyze-bindings has put this information into binding-store-type.)" + (if (not (binding-store-type binding)) + nil + (multiple-value-call #'encoded-subtypep + (values-list (binding-store-type binding)) + (type-specifier-encode type-specifier)))) + ;;;;;;; ;;;;;;; Extended-code handlers ;;;;;;; @@ -5251,7 +5270,7 @@ (define-find-read-bindings :load-lexical (source destination &key &allow-other-keys) (declare (ignore destination)) (check-type source binding) - source) + (list source)) (define-extended-code-expander :load-lexical (instruction funobj frame-map) (destructuring-bind (source destination &key shared-reference-p tmp-register protect-registers) @@ -5272,7 +5291,7 @@ (define-find-read-bindings :lmove (source destination) (declare (ignore destination)) - (values source)) + (list source)) ;;;;;;;;;;;;;;;;;; Store-lexical @@ -5286,7 +5305,7 @@ (define-find-read-bindings :store-lexical (destination source &key &allow-other-keys) (declare (ignore destination)) (when (typep source 'binding) - source)) + (list source))) (define-extended-code-expander :store-lexical (instruction funobj frame-map) (destructuring-bind (destination source &key shared-reference-p type) @@ -5338,18 +5357,27 @@ ;;;;;;;;;;;;;;;;;; car +(define-find-read-bindings :car (x dst &key protect-registers) + (declare (ignore dst protect-registers)) + (when (typep x 'binding) + (list x))) (define-extended-code-expander :car (instruction funobj frame-map) - (declare (ignore funobj frame-map)) + (warn "CAR: ~S" instruction) (destructuring-bind (x dst) (cdr instruction) (assert (member dst '(:eax :ebx :ecx :edx))) (etypecase x (binding - `((:load-lexical ,x :eax) - (:call (:edi ,(global-constant-offset 'fast-car))) - ,@(when (not (eq dst :eax)) - `((:movl :eax ,dst))))) + (let* ((binding (ensure-local-binding (binding-target x) funobj))) + (cond + ((binding-store-subtypep binding 'list) + `(,@(make-load-lexical binding dst funobj nil frame-map) + (:movl (,dst -1) ,dst))) + (t `(,@(make-load-lexical binding dst funobj nil frame-map) + (:call (:edi ,(global-constant-offset 'fast-car))) + ,@(when (not (eq dst :eax)) + `((:movl :eax ,dst)))))))) (symbol (append (case x (:eax @@ -5370,8 +5398,8 @@ (values binding 'integer))) (define-find-read-bindings :incf-lexvar (binding delta &key protect-registers) - (declare (ignore delta protect-registers)) - nil #+ignore binding) + (declare (ignore delta protect-registers binding)) + nil) (define-extended-code-expander :incf-lexvar (instruction funobj frame-map) (destructuring-bind (binding delta &key protect-registers) @@ -5385,18 +5413,13 @@ ((and binding-type location (not (binding-lended-p binding)) - (multiple-value-call #'encoded-subtypep - (values-list (binding-store-type binding)) - (type-specifier-encode 'integer))) + (binding-store-subtypep binding 'integer)) ;; This is an optimized incf that doesn't have to do type-checking. (check-type location (integer 1 *)) `((:addl ,(* delta +movitz-fixnum-factor+) (:ebp ,(stack-frame-offset location))) (:into))) - ((and binding-type - (multiple-value-call #'encoded-subtypep - (values-list (binding-store-type binding)) - (type-specifier-encode 'integer))) + ((binding-store-subtypep binding 'integer) (let ((register (chose-free-register protect-registers))) `(,@(make-load-lexical (ensure-local-binding binding funobj) register funobj nil frame-map

1 0

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

14 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv10112 Modified Files: special-operators.lisp Log Message: Added an experimental macro for inline assembly, :lexical-binding. Date: Sat Feb 14 10:18:54 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.11 movitz/special-operators.lisp:1.12 --- movitz/special-operators.lisp:1.11 Fri Feb 13 05:39:37 2004 +++ movitz/special-operators.lisp Sat Feb 14 10:18:54 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.11 2004/02/13 10:39:37 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.12 2004/02/14 15:18:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -560,6 +560,13 @@ (destructuring-bind (var reg &key (type t)) (cdr expr) `((:store-lexical ,(movitz-binding var env) ,reg :type ,type))))) + (setf (assembly-macro-expander :lexical-binding amenv) + (lambda (expr) + (destructuring-bind (var) + (cdr expr) + (let ((binding (movitz-binding var env))) + (check-type binding lexical-binding) + (list binding))))) (let ((code (assembly-macroexpand inline-asm amenv))) (assert (not (and (not side-effects) (tree-search code '(:store-lexical))))

1 0

[movitz-cvs] CVS update: movitz/compiler-types.lisp
by Frode Vatvedt Fjeld 14 Feb '04

14 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv4007 Modified Files: compiler-types.lisp Log Message: Improved member-type-encode to ensure that member objects are proper movitz-objects. Date: Sat Feb 14 08:56:19 2004 Author: ffjeld Index: movitz/compiler-types.lisp diff -u movitz/compiler-types.lisp:1.5 movitz/compiler-types.lisp:1.6 --- movitz/compiler-types.lisp:1.5 Thu Feb 12 12:51:41 2004 +++ movitz/compiler-types.lisp Sat Feb 14 08:56:19 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Sep 10 00:40:07 2003 ;;;; -;;;; $Id: compiler-types.lisp,v 1.5 2004/02/12 17:51:41 ffjeld Exp $ +;;;; $Id: compiler-types.lisp,v 1.6 2004/02/14 13:56:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -536,15 +536,16 @@ (multiple-value-bind (code integer-range members include complement) (type-specifier-encode nil) (dolist (x member-objects) - (multiple-value-setq (code integer-range members include complement) - (multiple-value-call #'encoded-types-or - code integer-range members include complement - (etypecase x - (movitz-fixnum - (type-values () :integer-range (make-numscope (movitz-fixnum-value x) - (movitz-fixnum-value x)))) - (movitz-object - (type-values () :members (list x))))))) + (let ((member (movitz-read x))) + (multiple-value-setq (code integer-range members include complement) + (multiple-value-call #'encoded-types-or + code integer-range members include complement + (etypecase member + (movitz-fixnum + (type-values () :integer-range (make-numscope (movitz-fixnum-value member) + (movitz-fixnum-value member)))) + (movitz-object + (type-values () :members (list member)))))))) (values code integer-range members include complement))) (defun encoded-emptyp (code integer-range members include complement)

1 0

[movitz-cvs] CVS update: movitz/load.lisp
by Frode Vatvedt Fjeld 13 Feb '04

13 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv20512 Modified Files: load.lisp Log Message: Added some cruft to make LW personal-edition sort-of build movitz. I was able to run (create-image), and almost (dump-image) too. A non-restricted LW would stand a good chance of working, I think, but I can't test that. Date: Fri Feb 13 17:17:42 2004 Author: ffjeld Index: movitz/load.lisp diff -u movitz/load.lisp:1.8 movitz/load.lisp:1.9 --- movitz/load.lisp:1.8 Tue Feb 10 13:06:22 2004 +++ movitz/load.lisp Fri Feb 13 17:17:41 2004 @@ -6,16 +6,26 @@ ;;;; For distribution policy, see the accompanying file COPYING. ;;;; ;;;; Filename: load.lisp -;;;; Description: +;;;; Description: Load the Movitz development system. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: load.lisp,v 1.8 2004/02/10 18:06:22 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.9 2004/02/13 22:17:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (in-package :cl-user) +#+lispworks-personal-edition (progn + (dbg::clear-all-source-level-debugging) + (hcl:toggle-source-debugging nil) + (compiler::clear-xref-info t) + (setf compiler:*source-level-debugging* nil + compiler:*load-xref-info* nil + compiler:*produce-xref-info* nil) + (proclaim '(optimize (space 3) (speed 0) + (debug 0) (compilation-speed 3)))) + (load (compile-file #p"../binary-types/binary-types")) (let ((*default-pathname-defaults* (merge-pathnames #p"../ia-x86/"))) @@ -61,6 +71,7 @@ #+cmu (setf bt::*ignore-hidden-slots-for-pcl* t) (mapcar (lambda (path) (do () (nil) + #+lispworks-personal-edition (hcl:mark-and-sweep 3) (with-simple-restart (retry "Retry loading ~S" path) (return (handler-bind @@ -86,5 +97,14 @@ "special-operators" "special-operators-cl")))))) -#+cmu18 (setf movitz:*compiler-compile-eval-whens* nil - movitz:*compiler-compile-macro-expanders* nil) \ No newline at end of file +#+(and cmu18 (not cmu19)) +(setf movitz:*compiler-compile-eval-whens* nil + movitz:*compiler-compile-macro-expanders* nil) + +#+lispworks (load "muerte-packages") ; work around an apparent bug in defpackage. +#+lispworks-personal-edition +(progn + ;; (setf movitz:*compiler-compile-eval-whens* nil) + (setf movitz::*compiler-do-optimize-p* nil + movitz::*compiler-do-type-inference* nil) + (mark-and-sweep 3))

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp
by Frode Vatvedt Fjeld 13 Feb '04

13 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv20546/losp/x86-pc Modified Files: debugger.lisp Log Message: Minor edits to defpackage forms. Date: Fri Feb 13 17:11:38 2004 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.2 movitz/losp/x86-pc/debugger.lisp:1.3 --- movitz/losp/x86-pc/debugger.lisp:1.2 Mon Jan 19 06:23:52 2004 +++ movitz/losp/x86-pc/debugger.lisp Fri Feb 13 17:11:38 2004 @@ -10,27 +10,27 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.2 2004/01/19 11:23:52 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.3 2004/02/13 22:11:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (provide :x86-pc/debugger) (defpackage muerte.debug - (:use muerte.cl muerte muerte.x86-pc) - (:export *debugger-function* - *debugger-condition* - *backtrace-conflate-names* - *backtrace-do-conflate* - *backtrace-max-frames* - *backtrace-max-args* - *backtrace-on-error* - *backtrace-stack-frame-barrier* - *backtrace-do-fresh-lines* - *backtrace-be-spartan-p* - *backtrace-print-length* - *backtrace-print-level* - backtrace + (:use #:muerte.cl #:muerte #:muerte.x86-pc) + (:export #:*debugger-function* + #:*debugger-condition* + #:*backtrace-conflate-names* + #:*backtrace-do-conflate* + #:*backtrace-max-frames* + #:*backtrace-max-args* + #:*backtrace-on-error* + #:*backtrace-stack-frame-barrier* + #:*backtrace-do-fresh-lines* + #:*backtrace-be-spartan-p* + #:*backtrace-print-length* + #:*backtrace-print-level* + #:backtrace )) (in-package muerte.debug)

1 0

[movitz-cvs] CVS update: movitz/losp/lib/net/ip6.lisp
by Frode Vatvedt Fjeld 13 Feb '04

13 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv20327 Modified Files: ip6.lisp Log Message: Minor edits to defpackage forms. Date: Fri Feb 13 17:11:34 2004 Author: ffjeld Index: movitz/losp/lib/net/ip6.lisp diff -u movitz/losp/lib/net/ip6.lisp:1.3 movitz/losp/lib/net/ip6.lisp:1.4 --- movitz/losp/lib/net/ip6.lisp:1.3 Mon Jan 19 06:23:46 2004 +++ movitz/losp/lib/net/ip6.lisp Fri Feb 13 17:11:34 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 14 17:25:31 2001 ;;;; -;;;; $Id: ip6.lisp,v 1.3 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: ip6.lisp,v 1.4 2004/02/13 22:11:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -23,7 +23,7 @@ (provide :lib/net/ip6) (defpackage muerte.ip6 - (:use muerte.cl muerte.lib muerte.x86-pc muerte.ethernet) + (:use #:muerte.cl #:muerte.lib #:muerte.x86-pc #:muerte.ethernet) (:export #:packet-version #:packet-source #:packet-destination

1 0

[movitz-cvs] CVS update: movitz/losp/lib/net/ip4.lisp
by Frode Vatvedt Fjeld 13 Feb '04

13 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv20256 Modified Files: ip4.lisp Log Message: Minor edits to defpackage forms. Date: Fri Feb 13 17:11:29 2004 Author: ffjeld Index: movitz/losp/lib/net/ip4.lisp diff -u movitz/losp/lib/net/ip4.lisp:1.3 movitz/losp/lib/net/ip4.lisp:1.4 --- movitz/losp/lib/net/ip4.lisp:1.3 Mon Jan 19 06:23:46 2004 +++ movitz/losp/lib/net/ip4.lisp Fri Feb 13 17:11:29 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 30 13:52:57 2003 ;;;; -;;;; $Id: ip4.lisp,v 1.3 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: ip4.lisp,v 1.4 2004/02/13 22:11:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -20,10 +20,10 @@ (provide :lib/net/ip4) (defpackage muerte.ip4 - (:use muerte.cl muerte muerte.ethernet muerte.lib) - (:export pprint-ip4 - ip4-test - ip4-free)) + (:use #:muerte.cl #:muerte #:muerte.ethernet #:muerte.lib) + (:export #:pprint-ip4 + #:ip4-test + #:ip4-free)) (require :lib/net/arp)

1 0

[movitz-cvs] CVS update: movitz/losp/lib/toplevel.lisp
by Frode Vatvedt Fjeld 13 Feb '04

13 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv20033/losp/lib Modified Files: toplevel.lisp Log Message: Minor edits to defpackage forms. Date: Fri Feb 13 17:11:24 2004 Author: ffjeld Index: movitz/losp/lib/toplevel.lisp diff -u movitz/losp/lib/toplevel.lisp:1.3 movitz/losp/lib/toplevel.lisp:1.4 --- movitz/losp/lib/toplevel.lisp:1.3 Mon Jan 19 06:23:44 2004 +++ movitz/losp/lib/toplevel.lisp Fri Feb 13 17:11:24 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 5 15:56:26 2002 ;;;; -;;;; $Id: toplevel.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ +;;;; $Id: toplevel.lisp,v 1.4 2004/02/13 22:11:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,7 +18,7 @@ (provide :lib/toplevel) (defpackage muerte.toplevel - (:use muerte.cl muerte) + (:use #:muerte.cl #:muerte) (:export #:define-toplevel-command #:invoke-toplevel-command #:*toplevel-commands*))

1 0

[movitz-cvs] CVS update: movitz/losp/lib/readline.lisp
by Frode Vatvedt Fjeld 13 Feb '04

13 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv19840 Modified Files: readline.lisp Log Message: Minor edits to defpackage forms. Date: Fri Feb 13 17:11:19 2004 Author: ffjeld Index: movitz/losp/lib/readline.lisp diff -u movitz/losp/lib/readline.lisp:1.3 movitz/losp/lib/readline.lisp:1.4 --- movitz/losp/lib/readline.lisp:1.3 Mon Jan 19 06:23:44 2004 +++ movitz/losp/lib/readline.lisp Fri Feb 13 17:11:19 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 2 13:58:58 2001 ;;;; -;;;; $Id: readline.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ +;;;; $Id: readline.lisp,v 1.4 2004/02/13 22:11:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,16 +19,16 @@ (provide :lib/readline) (defpackage muerte.readline - (:use muerte.cl muerte.lib) - (:export readline - readline-buffer - make-readline-buffer - readline-buffer-string - readline-buffer-cursor-position - readline-buffer-cursor-end - make-readline-context - contextual-readline - complete-symbol-name)) + (:use #:muerte.cl #:muerte.lib) + (:export #:readline + #:readline-buffer + #:make-readline-buffer + #:readline-buffer-string + #:readline-buffer-cursor-position + #:readline-buffer-cursor-end + #:make-readline-context + #:contextual-readline + #:complete-symbol-name)) (in-package muerte.readline)

1 0

[movitz-cvs] CVS update: movitz/muerte-packages.lisp
by Frode Vatvedt Fjeld 13 Feb '04

13 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv18335 Added Files: muerte-packages.lisp Log Message: Added this file, really as a work-around for an LW bug, but also I'm thinking perhaps these defpackage forms should be factored out like this. Date: Fri Feb 13 17:10:34 2004 Author: ffjeld

1 0