[Sbcl-commits] CVS: sbcl/contrib/sb-aclrepl sb-aclrepl.lisp,1.1,1.1.2.1

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1:/tmp/cvs-serv12440/contrib/sb-aclrepl

Modified Files:
      Tag: apd-0-7-cast
	sb-aclrepl.lisp 
Log Message:
0.7.13.30-cast.4: (updated to 0.7.13.30)

* Small steps towards ANSI VALUES type specifier:
** removed checks for VALUES-TYPE-{KEYP,KEYWORDS};
** &OPTIONAL type in VALUES does not automatically allow NIL;
** object type <type> in a values context \approx (VALUES &OPTIONAL
   <type> &REST T); DEFKNOWN uses the old meaning;

* added type checking for single value and MV-BIND receivers;
* THE coerces the asserted type to VALUES;
* fixed order of CAST LTN-annotating;



Index: sb-aclrepl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/sb-aclrepl.lisp,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -u -d -r1.1 -r1.1.2.1
--- sb-aclrepl.lisp	8 Feb 2003 15:41:20 -0000	1.1
+++ sb-aclrepl.lisp	20 Mar 2003 10:17:58 -0000	1.1.2.1
@@ -3,14 +3,16 @@
 ;;;; SBCL-specific hooks like SB-INT:*REPL-READ-FUN* and
 ;;;; SB-INT:*REPL-PROMPT-FUN*.
 ;;;;
-;;;; The documentation for this functionality is on the ACL website,
+;;;; The documentation, which may or may not apply in its entirety at
+;;;; any given time, for this functionality is on the ACL website:
 ;;;;   <http://www.franz.com/support/documentation/6.2/doc/top-level.htm>.
 
 (cl:defpackage :sb-aclrepl
   (:use :cl :sb-ext)
-  (:export :*prompt*)
-  ;; (what else should we be exporting?)
-  )
+  ;; FIXME: should we be exporting anything else?
+  (:export #:*prompt* #:*exit-on-eof* #:*max-history*
+	   #:*use-short-package-name* #:*command-char*
+	   #:alias))
 
 (cl:in-package :sb-aclrepl)
 
@@ -23,11 +25,11 @@
   "when T, use the shortnest package nickname in a prompt")
 (defparameter *dir-stack* nil
   "The top-level directory stack")
-(defparameter *cmd-char* #\:
+(defparameter *command-char* #\:
   "Prefix character for a top-level command")
 (defvar *max-history* 24
   "Maximum number of history commands to remember")
-(defvar *exit-on-eof*
+(defvar *exit-on-eof* t
   "If T, then exit when the EOF character is entered.")
 (defparameter *history* nil
   "History list")
@@ -66,7 +68,7 @@
 		      collect arg))))))
     (let ((next-char (peek-char-non-whitespace input-stream)))
       (cond
-	((eql next-char *cmd-char*)
+	((eql next-char *command-char*)
 	 (let* ((line (string-trim-whitespace (read-line input-stream)))
 		(first-space-pos (position #\space line))
 		(cmd-string (subseq line 1 first-space-pos))
@@ -482,6 +484,7 @@
 	 (fresh-line)
 	 t) ; Ayup.
 	(t
+	 (add-to-history user-cmd)
 	 nil))) ; nope, not in my job description
 
 (defun repl-read-form-fun (input-stream output-stream)