Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv6665

Modified Files: bcd.lisp console.lisp misc.lisp named-integers.lisp package.lisp readline.lisp repl.lisp toplevel.lisp Log Message: Fixed up package muerte.lib. Date: Thu Jan 15 12:34:49 2004 Author: ffjeld

Index: movitz/losp/lib/bcd.lisp diff -u movitz/losp/lib/bcd.lisp:1.1.1.1 movitz/losp/lib/bcd.lisp:1.2 --- movitz/losp/lib/bcd.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/bcd.lisp Thu Jan 15 12:34:49 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2002, +;;;; Copyright (C) 2001-2002, 2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,15 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Sep 30 14:03:57 2002 ;;;; -;;;; $Id: bcd.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: bcd.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

+(require :lib/package) (provide :lib/bcd) - -(defpackage muerte.lib - (:export bcd-to-integer - integer-to-bcd))

(in-package muerte.lib)

Index: movitz/losp/lib/console.lisp diff -u movitz/losp/lib/console.lisp:1.1.1.1 movitz/losp/lib/console.lisp:1.2 --- movitz/losp/lib/console.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/console.lisp Thu Jan 15 12:34:49 2004 @@ -10,26 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Aug 14 18:14:16 2003 ;;;; -;;;; $Id: console.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: console.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

+(requore :lib/package) (provide :lib/console) - -(defpackage muerte.lib - (:use muerte) - (:export console - console-width - console-height - cursor-x - cursor-y - console-char - scroll-down - put-string - clear-line - clear-console - local-echo-p - with-saved-excursion))

(in-package muerte.lib)

Index: movitz/losp/lib/misc.lisp diff -u movitz/losp/lib/misc.lisp:1.1.1.1 movitz/losp/lib/misc.lisp:1.2 --- movitz/losp/lib/misc.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/misc.lisp Thu Jan 15 12:34:49 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001, 2003, +;;;; Copyright (C) 2001, 2003-2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon May 12 17:13:31 2003 ;;;; -;;;; $Id: misc.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: misc.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -18,12 +18,6 @@ (provide :lib/misc)

(in-package muerte.lib) - -(defpackage muerte.lib - (:export checksum-octets - make-counter-u32 - u32-add - ))

(defun checksum-octets (packet &optional (start 0) (end (length packet))) "Generate sum of 16-bit big-endian words for a sequence of octets."

Index: movitz/losp/lib/named-integers.lisp diff -u movitz/losp/lib/named-integers.lisp:1.1.1.1 movitz/losp/lib/named-integers.lisp:1.2 --- movitz/losp/lib/named-integers.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/named-integers.lisp Thu Jan 15 12:34:49 2004 @@ -10,23 +10,13 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Jan 4 16:13:46 2002 ;;;; -;;;; $Id: named-integers.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: named-integers.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

-;; (require :common-lisp) +(require :lib/package) (require :lib/malloc-init) (provide :lib/named-integers) - -(defpackage muerte.lib - (:use muerte.cl muerte) - (:export define-named-integer - named-integer-case - named-integer - integer-name - name->integer - names->integer - with-named-integers-syntax))

(in-package muerte.lib)

Index: movitz/losp/lib/package.lisp diff -u movitz/losp/lib/package.lisp:1.1.1.1 movitz/losp/lib/package.lisp:1.2 --- movitz/losp/lib/package.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/package.lisp Thu Jan 15 12:34:49 2004 @@ -10,20 +10,61 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Sep 27 17:24:11 2002 ;;;; -;;;; $Id: package.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: package.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

(defpackage muerte.lib - (:use muerte.cl) - (:export *scroll-offset* - cursor-x cursor-y - console-width console-height - console-char - scroll-down - clear-line - local-echo-p - with-saved-excursion)) + (:use muerte.cl muerte) + (:export #:*scroll-offset* + #:cursor-x cursor-y + #:console-width console-height + #:console-char + #:scroll-down + #:clear-line + #:local-echo-p + #:with-saved-excursion + + ;; :lib/bcd + #:bcd-to-integer + #:integer-to-bcd + + ;; :lib/console + #:console + #:console-width + #:console-height + #:cursor-x + #:cursor-y + #:console-char + #:scroll-down + #:put-string + #:clear-line + #:clear-console + #:local-echo-p + #:with-saved-excursion + + ;; :lib/misc + #:checksum-octets + #:make-counter-u32 + #:u32-add + + ;; :lib/named-integers + #:define-named-integer + #:named-integer-case + #:named-integer + #:integer-name + #:name->integer + #:names->integer + #:with-named-integers-syntax + + ;; :lib/repl + #:*repl-level* + #:*repl-prompter* + #:*repl-prompt-context* + #:*repl-print-format* + #:*repl-readline-context* + #:read-eval-print + ))

(provide :lib/package)

Index: movitz/losp/lib/readline.lisp diff -u movitz/losp/lib/readline.lisp:1.1.1.1 movitz/losp/lib/readline.lisp:1.2 --- movitz/losp/lib/readline.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/readline.lisp Thu Jan 15 12:34:49 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2003, +;;;; Copyright (C) 2001-2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,11 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 2 13:58:58 2001 ;;;; -;;;; $Id: readline.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: readline.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

(require :common-lisp) +(require :lib/package) (provide :lib/readline)

(defpackage muerte.readline

Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.1.1.1 movitz/losp/lib/repl.lisp:1.2 --- movitz/losp/lib/repl.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/repl.lisp Thu Jan 15 12:34:49 2004 @@ -10,20 +10,13 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

+(require :lib/package) (require :lib/readline) (provide :lib/repl) - -(defpackage muerte.lib - (:export *repl-level* - *repl-prompter* - *repl-prompt-context* - *repl-print-format* - *repl-readline-context* - read-eval-print))

(in-package muerte.lib)

Index: movitz/losp/lib/toplevel.lisp diff -u movitz/losp/lib/toplevel.lisp:1.1.1.1 movitz/losp/lib/toplevel.lisp:1.2 --- movitz/losp/lib/toplevel.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/toplevel.lisp Thu Jan 15 12:34:49 2004 @@ -10,17 +10,18 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Sep 5 15:56:26 2002 ;;;; -;;;; $Id: toplevel.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: toplevel.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

+(require :lib/package) (provide :lib/toplevel)

(defpackage muerte.toplevel (:use muerte.cl muerte) - (:export define-toplevel-command - invoke-toplevel-command - *toplevel-commands*)) + (:export #:define-toplevel-command + #:invoke-toplevel-command + #:*toplevel-commands*))

(in-package muerte.toplevel)