Embeddable Common-Lisp

Update of /cvsroot/ecls/ecl/contrib/sockets
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27723/contrib/sockets

Modified Files:
	sockets.lisp 
Log Message:
The socket functions now accept an optional :ELEMENT-TYPE keyword argument, in addition to :EXTERNAL-FORMAT


Index: sockets.lisp
===================================================================
RCS file: /cvsroot/ecls/ecl/contrib/sockets/sockets.lisp,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -d -r1.66 -r1.67
*** sockets.lisp	17 Oct 2010 14:50:44 -0000	1.66
--- sockets.lisp	24 Jan 2011 22:06:08 -0000	1.67
***************
*** 1181,1185 ****
    (ffi:c-inline (fd) (:int) :int "dup(#0)" :one-liner t))
  
! (defun make-stream-from-fd (fd mode &key buffering external-format (name "FD-STREAM"))
    (assert (stringp name) (name) "name must be a string.")
    (let* ((smm-mode (ecase mode
--- 1181,1186 ----
    (ffi:c-inline (fd) (:int) :int "dup(#0)" :one-liner t))
  
! (defun make-stream-from-fd (fd mode &key buffering element-type external-format
!                             (name "FD-STREAM"))
    (assert (stringp name) (name) "name must be a string.")
    (let* ((smm-mode (ecase mode
***************
*** 1194,1200 ****
  		       (:input-output-wsock (c-constant "smm_io_wsock"))
  		       ))
!          (stream (ffi:c-inline (name fd smm-mode) (t :int :int) t
!                                "ecl_make_stream_from_fd(#0,#1,(enum ecl_smmode)#2,8,
!                                                         ECL_STREAM_DEFAULT_FORMAT,Cnil)"
                                 :one-liner t)))
      (when buffering
--- 1195,1205 ----
  		       (:input-output-wsock (c-constant "smm_io_wsock"))
  		       ))
!          (stream (ffi:c-inline (name fd smm-mode element-type)
!                                (t :int :int t)
!                                t
!                                "
! ecl_make_stream_from_fd(#0,#1,(enum ecl_smmode)#2,
! 			ecl_normalize_stream_element_type(#3),
!                         ECL_STREAM_DEFAULT_FORMAT,Cnil)"
                                 :one-liner t)))
      (when buffering
***************
*** 1210,1214 ****
                  :one-liner t))
  
! (defun socket-make-stream-inner (fd input output buffering external-format)
    ;; In Unix we have to create one stream per channel. The reason is
    ;; that buffered I/O is done using ANSI C FILEs which do not support
--- 1215,1219 ----
                  :one-liner t))
  
! (defun socket-make-stream-inner (fd input output buffering element-type external-format)
    ;; In Unix we have to create one stream per channel. The reason is
    ;; that buffered I/O is done using ANSI C FILEs which do not support
***************
*** 1222,1229 ****
           #+wsock
           (make-stream-from-fd fd :input-output-wsock
!                               :buffering buffering :external-format external-format)
           #-wsock
!          (let* ((in (socket-make-stream-inner (dup fd) t nil buffering external-format))
!                 (out (socket-make-stream-inner fd nil t buffering external-format))
                  (stream (make-two-way-stream in out)))
             (auto-close-two-way-stream stream)
--- 1227,1238 ----
           #+wsock
           (make-stream-from-fd fd :input-output-wsock
!                               :buffering buffering
!                               :element-type element-type
!                               :external-format external-format)
           #-wsock
!          (let* ((in (socket-make-stream-inner (dup fd) t nil buffering
!                                               element-type external-format))
!                 (out (socket-make-stream-inner fd nil t buffering
!                                                element-type external-format))
                  (stream (make-two-way-stream in out)))
             (auto-close-two-way-stream stream)
***************
*** 1231,1244 ****
          (input
           (make-stream-from-fd fd #-wsock :input #+wsock :input-wsock
!                               :buffering buffering :external-format external-format))
  	(output
  	 (make-stream-from-fd fd #-wsock :output #+wsock :output-wsock
!                               :buffering buffering :external-format external-format))
  	(t
  	 (error "SOCKET-MAKE-STREAM: at least one of :INPUT or :OUTPUT has to be true."))))
  
  (defmethod socket-make-stream ((socket socket)
! 			       &key (input nil input-p) (output nil output-p)
! 			       (buffering :full) (external-format :default))
    (let ((stream (and (slot-boundp socket 'stream)
  		     (slot-value socket 'stream))))
--- 1240,1260 ----
          (input
           (make-stream-from-fd fd #-wsock :input #+wsock :input-wsock
!                               :buffering buffering
!                               :element-type element-type
!                               :external-format external-format))
  	(output
  	 (make-stream-from-fd fd #-wsock :output #+wsock :output-wsock
!                               :buffering buffering
!                               :element-type element-type
!                               :external-format external-format))
  	(t
  	 (error "SOCKET-MAKE-STREAM: at least one of :INPUT or :OUTPUT has to be true."))))
  
  (defmethod socket-make-stream ((socket socket)
! 			       &key (input nil input-p)
!                                (output nil output-p)
! 			       (buffering :full)
!                                (element-type 'base-char)
!                                (external-format :default))
    (let ((stream (and (slot-boundp socket 'stream)
  		     (slot-value socket 'stream))))
***************
*** 1249,1253 ****
  	(setf input t output t))
        (setf stream (socket-make-stream-inner (socket-file-descriptor socket)
! 					     input output buffering external-format))
        (setf (slot-value socket 'stream) stream)
        #+ ignore
--- 1265,1270 ----
  	(setf input t output t))
        (setf stream (socket-make-stream-inner (socket-file-descriptor socket)
! 					     input output buffering element-type
!                                              external-format))
        (setf (slot-value socket 'stream) stream)
        #+ ignore

Update of /cvsroot/ecls/ecl/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27723/src

Modified Files:
	CHANGELOG 
Log Message:
The socket functions now accept an optional :ELEMENT-TYPE keyword argument, in addition to :EXTERNAL-FORMAT


Index: CHANGELOG
===================================================================
RCS file: /cvsroot/ecls/ecl/src/CHANGELOG,v
retrieving revision 1.797
retrieving revision 1.798
diff -C2 -d -r1.797 -r1.798
*** CHANGELOG	23 Jan 2011 22:30:57 -0000	1.797
--- CHANGELOG	24 Jan 2011 22:06:08 -0000	1.798
***************
*** 155,158 ****
--- 155,160 ----
  * Bugs fixed:
  
+  - Fixed several dozens of typos.
+ 
   - ENSURE-DIRECTORIES-EXIST did not work properly with logical pathnames.
  
***************
*** 170,173 ****
--- 172,176 ----
     user.
  
+  - SOCKET-MAKE-STREAM now accepts an :ELEMENT-TYPE argument.
  
  ;;; Local Variables: ***

Update of /cvsroot/ecls/ecl/src/c
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27723/src/c

Modified Files:
	file.d 
Log Message:
The socket functions now accept an optional :ELEMENT-TYPE keyword argument, in addition to :EXTERNAL-FORMAT


Index: file.d
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/file.d,v
retrieving revision 1.210
retrieving revision 1.211
diff -C2 -d -r1.210 -r1.211
*** file.d	23 Jan 2011 15:07:20 -0000	1.210
--- file.d	24 Jan 2011 22:06:08 -0000	1.211
***************
*** 4433,4442 ****
   */
  
! static cl_fixnum
! normalize_stream_element_type(cl_object element_type)
  {
  	cl_fixnum sign = 0;
  	cl_index size;
! 	if (funcall(3, @'subtypep', element_type, @'unsigned-byte') != Cnil) {
  		sign = +1;
  	} else if (funcall(3, @'subtypep', element_type, @'signed-byte') != Cnil) {
--- 4433,4452 ----
   */
  
! cl_fixnum
! ecl_normalize_stream_element_type(cl_object element_type)
  {
  	cl_fixnum sign = 0;
  	cl_index size;
! 	if (element_type == @'signed-byte') {
! 		return -8;
! 	} else if (element_type == @'unsigned-byte') {
! 		return 8;
! 	} else if (element_type == @':default') {
! 		return 0;
!         } else if (element_type == @'base-char' || element_type == @'character') {
!                 return 0;
! 	} else if (funcall(3, @'subtypep', element_type, @'character') != Cnil) {
! 		return 0;
! 	} else if (funcall(3, @'subtypep', element_type, @'unsigned-byte') != Cnil) {
  		sign = +1;
  	} else if (funcall(3, @'subtypep', element_type, @'signed-byte') != Cnil) {
***************
*** 4641,4657 ****
  			1, direction);
   	}
! 	if (element_type == @'signed-byte') {
! 		byte_size = -8;
! 	} else if (element_type == @'unsigned-byte') {
! 		byte_size = 8;
! 	} else if (element_type == @':default') {
! 		byte_size = 0;
!         } else if (element_type == @'base-char' || element_type == @'character') {
!                 byte_size = 0;
! 	} else if (funcall(3, @'subtypep', element_type, @'character') != Cnil) {
! 		byte_size = 0;
! 	} else {
! 		byte_size = normalize_stream_element_type(element_type);
! 	}
  	if (byte_size != 0) {
  		if (flags & ECL_STREAM_FORMAT) {
--- 4651,4655 ----
  			1, direction);
   	}
! 	byte_size = ecl_normalize_stream_element_type(element_type);
  	if (byte_size != 0) {
  		if (flags & ECL_STREAM_FORMAT) {

Update of /cvsroot/ecls/ecl/src/h
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27723/src/h

Modified Files:
	external.h 
Log Message:
The socket functions now accept an optional :ELEMENT-TYPE keyword argument, in addition to :EXTERNAL-FORMAT


Index: external.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/h/external.h,v
retrieving revision 1.421
retrieving revision 1.422
diff -C2 -d -r1.421 -r1.422
*** external.h	23 Jan 2011 15:07:21 -0000	1.421
--- external.h	24 Jan 2011 22:06:08 -0000	1.422
***************
*** 715,718 ****
--- 715,719 ----
  extern ECL_API cl_object ecl_file_length(cl_object strm);
  extern ECL_API int ecl_file_column(cl_object strm);
+ extern ECL_API cl_fixnum ecl_normalize_stream_element_type(cl_object element);
  extern ECL_API cl_object ecl_make_stream_from_fd(cl_object fname, int fd, enum ecl_smmode smm, cl_fixnum byte_size, int flags, cl_object external_format);
  extern ECL_API cl_object ecl_make_stream_from_FILE(cl_object fname, void *fd, enum ecl_smmode smm, cl_fixnum byte_size, int flags, cl_object external_format);

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27533/src/cmp

Modified Files:
	cmpvar.lsp 
Log Message:
Fixed typo.


Index: cmpvar.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpvar.lsp,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -d -r1.47 -r1.48
*** cmpvar.lsp	24 Jan 2011 22:04:54 -0000	1.47
--- cmpvar.lsp	24 Jan 2011 22:05:55 -0000	1.48
***************
*** 348,352 ****
  	 (type (type-and (var-type name1) (c1form-primary-type form1))))
      (unless type
!       (cmpwarn "Type mismatch between ~s and ~s." (var-name vref) form)
        (setq type T))
      ;; Is this justified????
--- 348,352 ----
  	 (type (type-and (var-type name1) (c1form-primary-type form1))))
      (unless type
!       (cmpwarn "Type mismatch between ~s and ~s." name form)
        (setq type T))
      ;; Is this justified????
***************
*** 411,415 ****
  	   (type (type-and (var-type vref) (c1form-primary-type form))))
        (unless type
! 	(cmpwarn "Type mismatch between ~s and ~s." name form)
  	(setq type T))
  	;; Is this justified????
--- 411,415 ----
  	   (type (type-and (var-type vref) (c1form-primary-type form))))
        (unless type
! 	(cmpwarn "Type mismatch between ~s and ~s." (var-name vref) form)
  	(setq type T))
  	;; Is this justified????

Update of /cvsroot/ecls/ecl/src/lsp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27456/src/lsp

Modified Files:
	iolib.lsp 
Log Message:
Fixed typos in error messages from iolib.lsp


Index: iolib.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/lsp/iolib.lsp,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** iolib.lsp	29 Oct 2010 20:32:51 -0000	1.36
--- iolib.lsp	24 Jan 2011 22:05:15 -0000	1.37
***************
*** 239,243 ****
  (defmacro with-standard-io-syntax (&body body)
    "Syntax: ({forms}*)
! The forms of the body are executed in a print envirtoponment that corresponds to
  the one defined in the ANSI standard. *print-base* is 10, *print-array* is t,
  *package* is \"CL-USER\", etc."
--- 239,243 ----
  (defmacro with-standard-io-syntax (&body body)
    "Syntax: ({forms}*)
! The forms of the body are executed in a print environment that corresponds to
  the one defined in the ANSI standard. *print-base* is 10, *print-array* is t,
  *package* is \"CL-USER\", etc."
***************
*** 248,252 ****
  (defmacro with-ecl-io-syntax (&body body)
    "Syntax: ({forms}*)
! The forms of the body are executed in a print envirtoponment that corresponds to
  the one used internally by ECL compiled files."
    `(progv (car +ecl-syntax-progv-list+)
--- 248,252 ----
  (defmacro with-ecl-io-syntax (&body body)
    "Syntax: ({forms}*)
! The forms of the body are executed in a print environment that corresponds to
  the one used internally by ECL compiled files."
    `(progv (car +ecl-syntax-progv-list+)

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26901/src/cmp

Modified Files:
	proclamations.lsp 
Log Message:
Fixed typo in proclamations for STORE-VALUE and USE-VALUE (J. James)


Index: proclamations.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/proclamations.lsp,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** proclamations.lsp	14 Jan 2011 22:28:12 -0000	1.24
--- proclamations.lsp	24 Jan 2011 22:05:05 -0000	1.25
***************
*** 320,325 ****
  (proclamation continue (&optional (or null condition)) null)
  (proclamation muffle-warning (&optional (or null condition)) (values))
! (proclamation store-value (value &optional (or null condition)) null)
! (proclamation use-value (value &optional (or null condition)) null)
  
  ;; Slot accessors:
--- 320,325 ----
  (proclamation continue (&optional (or null condition)) null)
  (proclamation muffle-warning (&optional (or null condition)) (values))
! (proclamation store-value (t &optional (or null condition)) null)
! (proclamation use-value (t &optional (or null condition)) null)
  
  ;; Slot accessors:

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26855/src/cmp

Modified Files:
	cmpvar.lsp 
Log Message:
In C1SETQ1, the variable name is recovered from the reference, not from the argument to SETQ (J. James)


Index: cmpvar.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpvar.lsp,v
retrieving revision 1.46
retrieving revision 1.47
diff -C2 -d -r1.46 -r1.47
*** cmpvar.lsp	28 Sep 2010 21:41:04 -0000	1.46
--- cmpvar.lsp	24 Jan 2011 22:04:54 -0000	1.47
***************
*** 348,352 ****
  	 (type (type-and (var-type name1) (c1form-primary-type form1))))
      (unless type
!       (cmpwarn "Type mismatch between ~s and ~s." name form)
        (setq type T))
      ;; Is this justified????
--- 348,352 ----
  	 (type (type-and (var-type name1) (c1form-primary-type form1))))
      (unless type
!       (cmpwarn "Type mismatch between ~s and ~s." (var-name vref) form)
        (setq type T))
      ;; Is this justified????

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26813/src/cmp

Modified Files:
	cmptop.lsp 
Log Message:
Fixed typo in c1fset (J. James).


Index: cmptop.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmptop.lsp,v
retrieving revision 1.149
retrieving revision 1.150
diff -C2 -d -r1.149 -r1.150
*** cmptop.lsp	19 Oct 2010 21:02:38 -0000	1.149
--- cmptop.lsp	24 Jan 2011 22:04:44 -0000	1.150
***************
*** 779,783 ****
  	    (when (fun-no-entry fun-object)
  	      (when macro
! 		(cmperr "Declaration C-LOCAL used in macro ~a" (fun-name fun)))
  	      (return-from c1fset
  		(make-c1form* 'SI:FSET :args fun-object nil nil nil nil)))
--- 779,784 ----
  	    (when (fun-no-entry fun-object)
  	      (when macro
! 		(cmperr "Declaration C-LOCAL used in macro ~a"
!                         (fun-name fun-object)))
  	      (return-from c1fset
  		(make-c1form* 'SI:FSET :args fun-object nil nil nil nil)))

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26751/src/cmp

Modified Files:
	cmpstructures.lsp 
Log Message:
Fixed typo in maybe-optimize-structure-access (J. James)


Index: cmpstructures.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpstructures.lsp,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** cmpstructures.lsp	26 May 2010 21:10:16 -0000	1.9
--- cmpstructures.lsp	24 Jan 2011 22:04:35 -0000	1.10
***************
*** 38,42 ****
  	       (policy-inline-slot-access-p))
        ;(format t "~%;;; Optimizing structure accessor ~A" fname)
!       (let (struture-type slot-index)
  	(unless (and (consp slot-description)
  		     (setf structure-type (car slot-description)
--- 38,42 ----
  	       (policy-inline-slot-access-p))
        ;(format t "~%;;; Optimizing structure accessor ~A" fname)
!       (let (structure-type slot-index)
  	(unless (and (consp slot-description)
  		     (setf structure-type (car slot-description)

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26715/src/cmp

Modified Files:
	cmpopt.lsp 
Log Message:
Missing LET variable definition in EXPAND-TYPEP (J. James).


Index: cmpopt.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpopt.lsp,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** cmpopt.lsp	17 Aug 2010 17:47:59 -0000	1.24
--- cmpopt.lsp	24 Jan 2011 22:04:25 -0000	1.25
***************
*** 49,53 ****
    (let* ((orig-type type)
  	 aux function
! 	 first rest)
      (cond ((not (and (constantp type) (setf type (cmp-eval type)) t))
  	   form)
--- 49,53 ----
    (let* ((orig-type type)
  	 aux function
! 	 first rest function)
      (cond ((not (and (constantp type) (setf type (cmp-eval type)) t))
  	   form)

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26672/src/cmp

Modified Files:
	cmpopt-type.lsp 
Log Message:
Fixed typo in C1COMPILER-TYPECASE (J. James)


Index: cmpopt-type.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpopt-type.lsp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** cmpopt-type.lsp	5 Jun 2010 18:11:48 -0000	1.3
--- cmpopt-type.lsp	24 Jan 2011 22:04:15 -0000	1.4
***************
*** 34,38 ****
  (defun c1compiler-typecases (args)
    (let* ((all-types (mapcar #'compute-c1form-type (pop args)))
!          (match (find expr-type args
                        :test #'(lambda (s1 s2) (every #'safe-typep<= s1 s2))
                        :key #'first)))
--- 34,38 ----
  (defun c1compiler-typecases (args)
    (let* ((all-types (mapcar #'compute-c1form-type (pop args)))
!          (match (find all-types args
                        :test #'(lambda (s1 s2) (every #'safe-typep<= s1 s2))
                        :key #'first)))

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26640/src/cmp

Modified Files:
	cmpflet.lsp 
Log Message:
Fixed typo in error message from LOCAL-FUNCION-REF (J. James).


Index: cmpflet.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpflet.lsp,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -d -r1.45 -r1.46
*** cmpflet.lsp	26 May 2010 21:10:16 -0000	1.45
--- cmpflet.lsp	24 Jan 2011 22:04:06 -0000	1.46
***************
*** 239,243 ****
  	(when build-object
  	  ;; Macro definition appears in #'.... This should not happen.
! 	  (cmperr "The name of a macro ~A was found in special form FUNCTION." name))
  	(return-from local-function-ref nil))
        (incf (fun-ref fun))
--- 239,243 ----
  	(when build-object
  	  ;; Macro definition appears in #'.... This should not happen.
! 	  (cmperr "The name of a macro ~A was found in special form FUNCTION." fname))
  	(return-from local-function-ref nil))
        (incf (fun-ref fun))

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26604/src/cmp

Modified Files:
	cmpenv-proclaim.lsp 
Log Message:
Fixed typo in proclaim (J. James).


Index: cmpenv-proclaim.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpenv-proclaim.lsp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** cmpenv-proclaim.lsp	14 Jul 2010 16:44:29 -0000	1.4
--- cmpenv-proclaim.lsp	24 Jan 2011 22:03:57 -0000	1.5
***************
*** 77,81 ****
       (dolist (var (cdr decl))
         (unless (si::valid-function-name-p var)
! 	 (error "Not a valid function name ~s in ~s proclamation" fun decl-name))))
      (DECLARATION
       (validate-alien-declaration (rest decl) #'error)
--- 77,81 ----
       (dolist (var (cdr decl))
         (unless (si::valid-function-name-p var)
! 	 (error "Not a valid function name ~s in ~s proclamation" var decl-name))))
      (DECLARATION
       (validate-alien-declaration (rest decl) #'error)

Update of /cvsroot/ecls/ecl/src/clos
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26569/src/clos

Modified Files:
	standard.lsp 
Log Message:
In std-class-sealed-accessor, fixed typo in declaration (J. James).


Index: standard.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/clos/standard.lsp,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -d -r1.66 -r1.67
*** standard.lsp	11 Jul 2010 13:23:55 -0000	1.66
--- standard.lsp	24 Jan 2011 22:03:47 -0000	1.67
***************
*** 599,603 ****
  (defun std-class-sealed-accessors (index)
    (declare (si::c-local)
! 	   (fixnum slot-index))
    (values #'(lambda (self)
                (declare (optimize (safety 1) (speed 3) (debug 0))
--- 599,603 ----
  (defun std-class-sealed-accessors (index)
    (declare (si::c-local)
! 	   (fixnum index))
    (values #'(lambda (self)
                (declare (optimize (safety 1) (speed 3) (debug 0))

Update of /cvsroot/ecls/ecl/src/c/printer
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26534/src/c/printer

Modified Files:
	write_symbol.d 
Log Message:
potential_number_p() did not recognize numbers with +-/^. inside.


Index: write_symbol.d
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/printer/write_symbol.d,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** write_symbol.d	29 Oct 2010 20:32:51 -0000	1.1
--- write_symbol.d	24 Jan 2011 22:03:38 -0000	1.2
***************
*** 47,52 ****
  		 * markers are letters, but two adjacent letters fail
  		 * to be a number marker. */
! 		if (ecl_digitp(c, base) >= 0 || c == '+' && c == '-' && c == '/' && c == '.' &&
! 		    c == '^' && c == '_') {
  			continue;
  		}
--- 47,52 ----
  		 * markers are letters, but two adjacent letters fail
  		 * to be a number marker. */
! 		if (ecl_digitp(c, base) >= 0 || c == '+' || c == '-' ||
!                     c == '/' || c == '.' || c == '^' || c == '_') {
  			continue;
  		}

Update of /cvsroot/ecls/ecl/src/c
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26473/src/c

Modified Files:
	hash.d 
Log Message:
Fixed typo in hash.d (J. James)


Index: hash.d
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/hash.d,v
retrieving revision 1.91
retrieving revision 1.92
diff -C2 -d -r1.91 -r1.92
*** hash.d	9 Nov 2010 10:47:18 -0000	1.91
--- hash.d	24 Jan 2011 22:03:28 -0000	1.92
***************
*** 141,145 ****
                   * that give rise to different hash key and are not
                   * meaningful */
!                 struct { double mantissa; int exponent; int sign} aux;
                  aux.mantissa = frexpl(ecl_long_float(x), &aux.exponent);
                  aux.sign = (ecl_long_float(x) < 0)? -1: 1;
--- 141,145 ----
                   * that give rise to different hash key and are not
                   * meaningful */
!                 struct { double mantissa; int exponent; int sign; } aux;
                  aux.mantissa = frexpl(ecl_long_float(x), &aux.exponent);
                  aux.sign = (ecl_long_float(x) < 0)? -1: 1;

Update of /cvsroot/ecls/ecl/src/h
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv8225/src/h

Modified Files:
	bytecodes.h 
Log Message:
Some versions of Clang do not allow computed gotos.


Index: bytecodes.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/h/bytecodes.h,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** bytecodes.h	6 Nov 2010 14:03:48 -0000	1.34
--- bytecodes.h	24 Jan 2011 20:54:58 -0000	1.35
***************
*** 151,155 ****
   * relocation tables.
   */
! #if (defined(__GNUC__) && !defined(__STRICT_ANSI__))
  #define ECL_THREADED_INTERPRETER
  # if defined(__sun__) && (FIXNUM_BITS > 32)
--- 151,155 ----
   * relocation tables.
   */
! #if (defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(__clang__))
  #define ECL_THREADED_INTERPRETER
  # if defined(__sun__) && (FIXNUM_BITS > 32)

Update of /cvsroot/ecls/ecl/src/lsp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26627/src/lsp

Modified Files:
	cmdline.lsp top.lsp 
Log Message:
Further changes to avoid duplicated command line parsing: once by the toplevel and once by the user


Index: top.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/lsp/top.lsp,v
retrieving revision 1.93
retrieving revision 1.94
diff -C2 -d -r1.93 -r1.94
*** top.lsp	23 Jan 2011 17:59:21 -0000	1.93
--- top.lsp	23 Jan 2011 22:30:58 -0000	1.94
***************
*** 384,388 ****
  (defvar *lisp-initialized* nil)
  
! (defun top-level ()
    "Args: ()
  ECL specific.
--- 384,388 ----
  (defvar *lisp-initialized* nil)
  
! (defun top-level (&optional (process-command-line nil))
    "Args: ()
  ECL specific.
***************
*** 394,398 ****
        (in-package "CL-USER")
  
!       (unless *lisp-initialized*
          (process-command-args)
  	(format t "ECL (Embeddable Common-Lisp) ~A" (lisp-implementation-version))
--- 394,398 ----
        (in-package "CL-USER")
  
!       (unless (or *lisp-initialized* (null process-command-line))
          (process-command-args)
  	(format t "ECL (Embeddable Common-Lisp) ~A" (lisp-implementation-version))
***************
*** 402,407 ****
  ECL is free software, and you are welcome to redistribute it~@
  under certain conditions; see file 'Copyright' for details.")
! 	(format *standard-output* "~%Type :h for Help.  ")
! 	(setq *lisp-initialized* t))
  
        (let ((*tpl-level* -1))
--- 402,407 ----
  ECL is free software, and you are welcome to redistribute it~@
  under certain conditions; see file 'Copyright' for details.")
! 	(format *standard-output* "~%Type :h for Help.  "))
!       (setq *lisp-initialized* t)
  
        (let ((*tpl-level* -1))

Index: cmdline.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/lsp/cmdline.lsp,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** cmdline.lsp	23 Jan 2011 17:24:46 -0000	1.21
--- cmdline.lsp	23 Jan 2011 22:30:58 -0000	1.22
***************
*** 15,24 ****
  (in-package "SYSTEM")
  
! (defvar *command-break-enable* nil)
  
! (defvar *lisp-init-file-list* '("~/.ecl" "~/.eclrc")
    "List of files automatically loaded when ECL is invoked.")
  
! (defvar *help-message* "
  Usage: ecl [-? | --help]
             [-dir dir] [-load file] [-shell file] [-eval expr] [-rc | -norc] [-hp | -nohp]
--- 15,28 ----
  (in-package "SYSTEM")
  
! (defparameter *command-args*
!   (loop for i from 0 below (argc)
!      collect (argv i)))
  
! (defparameter *command-break-enable* nil)
! 
! (defparameter *lisp-init-file-list* '("~/.ecl" "~/.eclrc")
    "List of files automatically loaded when ECL is invoked.")
  
! (defparameter *help-message* "
  Usage: ecl [-? | --help]
             [-dir dir] [-load file] [-shell file] [-eval expr] [-rc | -norc] [-hp | -nohp]
***************
*** 34,39 ****
  (defun command-args ()
    "Returns the command line arguments as list"
!   (loop for i from 0 below (argc)
! 	collect (argv i)))
  
  (defun command-arg-error (str &rest fmt-args)
--- 38,42 ----
  (defun command-args ()
    "Returns the command line arguments as list"
!   *command-args*)
  
  (defun command-arg-error (str &rest fmt-args)

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26627/src/cmp

Modified Files:
	cmpmain.lsp 
Log Message:
Further changes to avoid duplicated command line parsing: once by the toplevel and once by the user


Index: cmpmain.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpmain.lsp,v
retrieving revision 1.191
retrieving revision 1.192
diff -C2 -d -r1.191 -r1.192
*** cmpmain.lsp	27 Dec 2010 23:05:07 -0000	1.191
--- cmpmain.lsp	23 Jan 2011 22:30:58 -0000	1.192
***************
*** 332,336 ****
  		(init-name nil)
  		(prologue-code "")
! 		(epilogue-code (when (eq target :program) '(SI::TOP-LEVEL)))
  		#+:win32 (system :console)
  		&aux
--- 332,336 ----
  		(init-name nil)
  		(prologue-code "")
! 		(epilogue-code (when (eq target :program) '(SI::TOP-LEVEL T)))
  		#+:win32 (system :console)
  		&aux

Update of /cvsroot/ecls/ecl/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26627/src

Modified Files:
	CHANGELOG 
Log Message:
Further changes to avoid duplicated command line parsing: once by the toplevel and once by the user


Index: CHANGELOG
===================================================================
RCS file: /cvsroot/ecls/ecl/src/CHANGELOG,v
retrieving revision 1.796
retrieving revision 1.797
diff -C2 -d -r1.796 -r1.797
*** CHANGELOG	23 Jan 2011 21:52:28 -0000	1.796
--- CHANGELOG	23 Jan 2011 22:30:57 -0000	1.797
***************
*** 163,166 ****
--- 163,173 ----
   - When printing error messages, the condition type is shown (M. Mondor)
  
+  - SI:TOP-LEVEL, when invoked without arguments, does not process the
+    command line.
+ 
+  - The command line used by EXT:PROCESS-COMMAND-ARGS is now by default
+    the one stored in *COMMAND-ARGS*, and this may be "cleared" by the
+    user.
+ 
  
  ;;; Local Variables: ***

Update of /cvsroot/ecls/ecl/src/c
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26627/src/c

Modified Files:
	symbols_list.h symbols_list2.h 
Log Message:
Further changes to avoid duplicated command line parsing: once by the toplevel and once by the user


Index: symbols_list.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/symbols_list.h,v
retrieving revision 1.295
retrieving revision 1.296
diff -C2 -d -r1.295 -r1.296
*** symbols_list.h	23 Jan 2011 17:24:46 -0000	1.295
--- symbols_list.h	23 Jan 2011 22:30:57 -0000	1.296
***************
*** 1979,1982 ****
--- 1979,1983 ----
  {EXT_ "+DEFAULT-COMMAND-ARG-RULES+", EXT_ORDINARY, NULL, -1, OBJNULL},
  {EXT_ "COMMAND-ARGS", EXT_ORDINARY, NULL, -1, OBJNULL},
+ {EXT_ "*COMMAND-ARGS*", EXT_SPECIAL, NULL, -1, Cnil},
  {EXT_ "PROCESS-COMMAND-ARGS", EXT_ORDINARY, NULL, -1, OBJNULL},
  

Index: symbols_list2.h
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/symbols_list2.h,v
retrieving revision 1.173
retrieving revision 1.174
diff -C2 -d -r1.173 -r1.174
*** symbols_list2.h	23 Jan 2011 17:24:46 -0000	1.173
--- symbols_list2.h	23 Jan 2011 22:30:58 -0000	1.174
***************
*** 1979,1982 ****
--- 1979,1983 ----
  {EXT_ "+DEFAULT-COMMAND-ARG-RULES+",NULL},
  {EXT_ "COMMAND-ARGS",NULL},
+ {EXT_ "*COMMAND-ARGS*",NULL},
  {EXT_ "PROCESS-COMMAND-ARGS",NULL},

Update of /cvsroot/ecls/ecl/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv16935/src

Modified Files:
	CHANGELOG 
Log Message:
EXT:SET-LIMIT with option EXT:FRAME-STACK corrupted the frame stack.


Index: CHANGELOG
===================================================================
RCS file: /cvsroot/ecls/ecl/src/CHANGELOG,v
retrieving revision 1.795
retrieving revision 1.796
diff -C2 -d -r1.795 -r1.796
*** CHANGELOG	23 Jan 2011 17:07:59 -0000	1.795
--- CHANGELOG	23 Jan 2011 21:52:28 -0000	1.796
***************
*** 157,160 ****
--- 157,162 ----
   - ENSURE-DIRECTORIES-EXIST did not work properly with logical pathnames.
  
+  - EXT:SET-LIMIT with option EXT:FRAME-STACK corrupted the frame stack.
+ 
  * Visible changes:

Update of /cvsroot/ecls/ecl/src/c
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv16886/src/c

Modified Files:
	stacks.d 
Log Message:
Fixed typo in frs_set_limit


Index: stacks.d
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/stacks.d,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -d -r1.66 -r1.67
*** stacks.d	29 Oct 2010 20:31:50 -0000	1.66
--- stacks.d	23 Jan 2011 21:52:18 -0000	1.67
***************
*** 474,478 ****
  frs_set_size(cl_env_ptr env, cl_index size)
  {
! 	ecl_frame_ptr old_org = env->frs_top;
  	cl_index limit = env->frs_top - old_org;
  	if (size <= limit) {
--- 474,478 ----
  frs_set_size(cl_env_ptr env, cl_index size)
  {
! 	ecl_frame_ptr old_org = env->frs_org;
  	cl_index limit = env->frs_top - old_org;
  	if (size <= limit) {

Update of /cvsroot/ecls/ecl/src/cmp
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27413/src/cmp

Modified Files:
	cmpwt.lsp 
Log Message:
Do not use static constants when compiling Lisp code other than ECL's core


Index: cmpwt.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/cmp/cmpwt.lsp,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** cmpwt.lsp	6 Nov 2010 14:03:58 -0000	1.50
--- cmpwt.lsp	23 Jan 2011 20:43:51 -0000	1.51
***************
*** 281,285 ****
    #-:msvc
    ;; FIXME! The Microsoft compiler does not allow static initialization of bit fields.
!   (unless (or *compiler-constants* (not (listp *static-constants*)))
      (let ((record (find object *static-constants* :key #'first :test #'equal)))
        (if record
--- 281,287 ----
    #-:msvc
    ;; FIXME! The Microsoft compiler does not allow static initialization of bit fields.
!   (unless (or *compiler-constants*
!               (not *use-static-constants-p*)
!               (not (listp *static-constants*)))
      (let ((record (find object *static-constants* :key #'first :test #'equal)))
        (if record