[movitz-cvs] CVS update: movitz/losp/lib/bcd.lisp movitz/losp/lib/console.lisp movitz/losp/lib/misc.lisp movitz/losp/lib/named-integers.lisp movitz/losp/lib/package.lisp movitz/losp/lib/readline.lisp movitz/losp/lib/repl.lisp movitz/losp/lib/toplevel.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Thu Jan 15 17:34:49 UTC 2004
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 at 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 at 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 at 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 at 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 at 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 at 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 at 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 at 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)
More information about the Movitz-cvs
mailing list