cmucl-cvs

cmucl-cvs@common-lisp.net

2904 discussions

[cmucl-cvs] CMUCL commit: src/code (extfmts.lisp)
by Raymond Toy 30 Nov '10

30 Nov '10

Date: Monday, November 29, 2010 @ 23:09:42 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: extfmts.lisp o *FILENAME-ENCODING* was never getting set. Fix that. (From Paul Foley.) o While we're here, canonicalize *FILENAME-ENCODING* using the actual external format name. --------------+ extfmts.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) Index: src/code/extfmts.lisp diff -u src/code/extfmts.lisp:1.41 src/code/extfmts.lisp:1.42 --- src/code/extfmts.lisp:1.41 Tue Sep 7 22:58:06 2010 +++ src/code/extfmts.lisp Mon Nov 29 23:09:42 2010 @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/extfmts.lisp,v 1.41 2010-09-08 02:58:06 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/extfmts.lisp,v 1.42 2010-11-30 04:09:42 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1102,11 +1102,12 @@ (when filenames (unless (find-external-format filenames) (error (intl:gettext "Can't find external-format ~S.") filenames)) + (setq filenames (ef-name (find-external-format filenames))) (when (and unix::*filename-encoding* (not (eq unix::*filename-encoding* filenames))) (cerror (intl:gettext "Change it anyway.") - (intl:gettext "The external-format for encoding filenames is already set.")) - (setq unix::*filename-encoding* filenames))) + (intl:gettext "The external-format for encoding filenames is already set."))) + (setq unix::*filename-encoding* filenames)) t)

1 0

[cmucl-cvs] CMUCL commit: cross-sparc-branch src/compiler/sparc (parms.lisp)
by Raymond Toy 20 Nov '10

20 Nov '10

Date: Saturday, November 20, 2010 @ 10:45:05 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/sparc Tag: cross-sparc-branch Modified: parms.lisp Set up TARGET-FOREIGN-LINKAGE-SPACE-START and TARGET-FOREIGN-LINKAGE-ENTRY-SIZE from the backend values. ------------+ parms.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) Index: src/compiler/sparc/parms.lisp diff -u src/compiler/sparc/parms.lisp:1.61.6.1 src/compiler/sparc/parms.lisp:1.61.6.2 --- src/compiler/sparc/parms.lisp:1.61.6.1 Tue Nov 16 12:29:34 2010 +++ src/compiler/sparc/parms.lisp Sat Nov 20 10:45:05 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/sparc/parms.lisp,v 1.61.6.1 2010-11-16 17:29:34 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/sparc/parms.lisp,v 1.61.6.2 2010-11-20 15:45:05 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -48,8 +48,11 @@ #+mach 4096 #+sunos 8192) (setf (c::backend-foreign-linkage-space-start *target-backend*) + ;; This better match the value in sparc-validate.h! #x0f800000 (c::backend-foreign-linkage-entry-size *target-backend*) + ;; This better agree with what sparc-arch.c thinks it is! Right now, + ;; it's 4 instructions, so 16 bytes. 16) ); eval-when @@ -217,11 +220,10 @@ (defconstant target-static-space-start #x28000000) (defconstant target-dynamic-space-start #x40000000) -;; This better match the value in sparc-validate.h! -(defconstant target-foreign-linkage-space-start #x0f800000) -;; This better agree with what sparc-arch.c thinks it is! Right now, -;; it's 4 instructions, so 16 bytes. -(defconstant target-foreign-linkage-entry-size 16) +(defconstant target-foreign-linkage-space-start + (c:backend-foreign-linkage-space-start *target-backend*)) +(defconstant target-foreign-linkage-entry-size + (c:backend-foreign-linkage-entry-size *target-backend*)) ;;;; Other random constants.

1 0

[cmucl-cvs] CMUCL commit: cross-sparc-branch src/compiler/generic (new-genesis.lisp)
by Raymond Toy 18 Nov '10

18 Nov '10

Date: Wednesday, November 17, 2010 @ 19:25:10 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/generic Tag: cross-sparc-branch Modified: new-genesis.lisp o Comment out debugging prints. o Add some comments. ------------------+ new-genesis.lisp | 41 ++++++++++++++++++++++++++++++----------- 1 file changed, 30 insertions(+), 11 deletions(-) Index: src/compiler/generic/new-genesis.lisp diff -u src/compiler/generic/new-genesis.lisp:1.91.2.2 src/compiler/generic/new-genesis.lisp:1.91.2.3 --- src/compiler/generic/new-genesis.lisp:1.91.2.2 Tue Nov 16 17:01:49 2010 +++ src/compiler/generic/new-genesis.lisp Wed Nov 17 19:25:10 2010 @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.91.2.2 2010-11-16 22:01:49 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.91.2.3 2010-11-18 00:25:10 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -436,14 +436,17 @@ (setf (aref bytes k) (logand #xffff (char-code (aref string k))))) (unless (eq (c:backend-byte-order c:*backend*) (c:backend-byte-order c:*native-backend*)) - ;; Swap byte order of unicode strings. - (format t "s-t-c: len = ~d, ~S~%" len string) - (format t " codes = ~{~X~^ ~}~%" (map 'list #'char-code string)) + ;; Swap byte order of unicode strings if the backend and + ;; native-backend have different endianness. + #+(or) + (progn + (format t "s-t-c: len = ~d, ~S~%" len string) + (format t " codes = ~{~X~^ ~}~%" (map 'list #'char-code string))) (dotimes (k len) (let ((x (aref bytes k))) (setf (aref bytes k) (maybe-byte-swap-short x)))) - (format t " new codes = ~{~X~^ ~}~%" (coerce bytes 'list)) - ) + #+(or) + (format t " new codes = ~{~X~^ ~}~%" (coerce bytes 'list))) (copy-to-system-area bytes (* vm:vector-data-offset ;; the word size of the native backend which ;; may be different from the target backend @@ -1341,6 +1344,8 @@ (logior (ash (ldb (byte 8 0) n) 8) (ldb (byte 8 8) n))) +;; Destructively byte swap a string, if the backend and the native +;; backend have different endianness. (defun maybe-byte-swap-string (s &optional (len (length s))) (unless (eq (c:backend-byte-order c:*backend*) (c:backend-byte-order c:*native-backend*)) @@ -1353,8 +1358,12 @@ (defun cold-load-symbol (size package) (let ((string (make-string size))) (read-n-bytes *fasl-file* string 0 (* 2 size)) + #+(or) (format t "pre swap cold-load-symbol: ~S to package ~S~%" string package) + ;; Make the string have the correct byte order for the native + ;; backend. (maybe-byte-swap-string string) + #+(or) (format t "post swap cold-load-symbol: ~S to package ~S~%" string package) (cold-intern (intern string package) package))) @@ -1464,8 +1473,13 @@ (let* ((len (clone-arg)) (string (make-string len))) (read-n-bytes *fasl-file* string 0 (* 2 len)) + #+(or) (format t "pre fop-string result = ~{~X~^ ~}~%" (map 'list #'char-code string)) + ;; Make the string have the correct byte order for the native + ;; backend. (This wouldn't be needed if string-to-core had an + ;; option to (maybe-byte-swap-string string) + #+(or) (format t "post fop-string result = ~{~X~^ ~}~%" (map 'list #'char-code string)) (string-to-core string))) @@ -1994,9 +2008,12 @@ #+unicode (progn (read-n-bytes *fasl-file* sym 0 (* 2 len)) - (format t "foreign-fixup: ~S~%" sym) - (format t " codes: ~{~X~^ ~}~%" (map 'list #'char-code sym)) + #+(or) + (progn + (format t "foreign-fixup: ~S~%" sym) + (format t " codes: ~{~X~^ ~}~%" (map 'list #'char-code sym))) (maybe-byte-swap-string sym) + #+(or) (format t " swaps: ~S~%" sym)) (let ((offset (read-arg 4)) (value #+linkage-table (cold-register-foreign-linkage sym :code) @@ -2017,9 +2034,12 @@ #+unicode (progn (read-n-bytes *fasl-file* sym 0 (* 2 len)) - (format t "foreign-data-fixup: ~S~%" sym) - (format t " codes: ~{~X~^ ~}~%" (map 'list #'char-code sym)) + #+(or) + (progn + (format t "foreign-data-fixup: ~S~%" sym) + (format t " codes: ~{~X~^ ~}~%" (map 'list #'char-code sym))) (maybe-byte-swap-string sym) + #+(or) (format t " swaps: ~{~X~^ ~}~%" (map 'list #'char-code sym))) (let ((offset (read-arg 4)) (value (cold-register-foreign-linkage sym :data))) @@ -2484,7 +2504,6 @@ (defun linkage-info-to-core () (let ((result *nil-descriptor*)) (maphash #'(lambda (symbol value) - (format t "linkage-info symbol = ~S~%" symbol) (cold-push (allocate-cons *dynamic* (string-to-core symbol) (number-to-core value))

1 0

[cmucl-cvs] CMUCL commit: cross-sparc-branch src/compiler/x86 (parms.lisp)
by Raymond Toy 18 Nov '10

18 Nov '10

Date: Wednesday, November 17, 2010 @ 19:24:02 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86 Tag: cross-sparc-branch Modified: parms.lisp Set up TARGET-FOREIGN-LINKAGE-SPACE-START and TARGET-FOREIGN-LINKAGE-ENTRY-SIZE from the backend values. ------------+ parms.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) Index: src/compiler/x86/parms.lisp diff -u src/compiler/x86/parms.lisp:1.40.6.1 src/compiler/x86/parms.lisp:1.40.6.2 --- src/compiler/x86/parms.lisp:1.40.6.1 Tue Nov 16 12:29:35 2010 +++ src/compiler/x86/parms.lisp Wed Nov 17 19:24:02 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/parms.lisp,v 1.40.6.1 2010-11-16 17:29:35 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/parms.lisp,v 1.40.6.2 2010-11-18 00:24:02 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -219,9 +219,9 @@ #+linux #x58100000 #-linux #x48000000) (defconstant target-foreign-linkage-space-start - #+linux #x58000000 - #-linux #xB0000000) -(defconstant target-foreign-linkage-entry-size 8) ;In bytes. Duh. + (c:backend-foreign-linkage-space-start *target-backend*)) +(defconstant target-foreign-linkage-entry-size + (c:backend-foreign-linkage-entry-size *target-backend*)) ;In bytes. Duh. ;;; Given that NIL is the first thing allocated in static space, we ;;; know its value at compile time:

1 0

[cmucl-cvs] CMUCL commit: cross-sparc-branch src/tools/cross-scripts (cross-x86-sparc.lisp)
by Raymond Toy 18 Nov '10

18 Nov '10

Date: Wednesday, November 17, 2010 @ 19:22:33 Author: rtoy Path: /project/cmucl/cvsroot/src/tools/cross-scripts Tag: cross-sparc-branch Modified: cross-x86-sparc.lisp o Need to remove the :i486 feature from x86. (Include :pentium too?) o Add comments. o Comment out debugging prints. ----------------------+ cross-x86-sparc.lisp | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) Index: src/tools/cross-scripts/cross-x86-sparc.lisp diff -u src/tools/cross-scripts/cross-x86-sparc.lisp:1.1.2.1 src/tools/cross-scripts/cross-x86-sparc.lisp:1.1.2.2 --- src/tools/cross-scripts/cross-x86-sparc.lisp:1.1.2.1 Tue Nov 16 12:29:35 2010 +++ src/tools/cross-scripts/cross-x86-sparc.lisp Wed Nov 17 19:22:33 2010 @@ -36,8 +36,10 @@ ) ;; Features to remove from current *features* here '(:sparc-v8 :sparc-v7 ; Choose only one of :sparc-v7, :sparc-v8, :sparc-v9 - ;; Other architectures we aren't using. - :x86 :x86-bootstrap :sse2 :x87 + ;; Other architectures we aren't using. Particularly important + ;; to get rid of sse2 and x87 so we don't accidentally try to + ;; compile the x87/sse2 float support on sparc, which won't work. + :x86 :x86-bootstrap :sse2 :x87 :i486 :alpha :osf1 :mips ;; Really old stuff that should have been removed long ago. :propagate-fun-type :propagate-float-type :constrain-float-type @@ -51,14 +53,21 @@ :mp)) ;;; Changes needed to bootstrap cross-compiling from x86 to sparc + +;; Set up the linkage space stuff appropriately for sparc. (setf (c::backend-foreign-linkage-space-start c::*target-backend*) #x0f800000 (c::backend-foreign-linkage-entry-size c::*target-backend*) 16) (in-package "LISP") +;; We need the the fops because the cross-compiled fasl file is in +;; big-endian order for sparc. When we read in a string, we need to +;; convert the big-endian string to little-endian for x86 so we can +;; process the symbols and such as expected. (progn (defun maybe-swap-string (f name &optional (len (length name))) + (declare (ignorable f)) (unless (eq (c:backend-byte-order c:*backend*) (c:backend-byte-order c:*native-backend*)) (dotimes (k len) @@ -66,7 +75,7 @@ (setf (aref name k) (code-char (logior (ash (ldb (byte 8 0) code) 8) (ldb (byte 8 8) code)))))) - (format t "~S: new name = ~S~%" f name) + ;;(format t "~S: new name = ~S~%" f (subseq name 0 len)) name)) (macrolet ((frob (name code name-size package) @@ -106,8 +115,7 @@ (define-fop (fop-package 14) (let ((name (pop-stack))) - (format t "xfop-package: ~{~X~^ ~}~%" (map 'list #'char-code name)) - ;; Byte swap name + ;;(format t "xfop-package: ~{~X~^ ~}~%" (map 'list #'char-code name)) (or (find-package name) (error (intl:gettext "The package ~S does not exist.") name)))) @@ -124,9 +132,9 @@ (defun cold-load-symbol (size package) (let ((string (make-string size))) (read-n-bytes *fasl-file* string 0 (* 2 size)) - (format t "xpre swap cold-load-symbol: ~S to package ~S~%" string package) - (maybe-byte-swap-string string) - (format t "xpost swap cold-load-symbol: ~S to package ~S~%" string package) + ;;(format t "xpre swap cold-load-symbol: ~S to package ~S~%" string package) + (maybe-swap-string 'cold-load-symbol string) + ;;(format t "xpost swap cold-load-symbol: ~S to package ~S~%" string package) (cold-intern (intern string package) package))) )

1 0

[cmucl-cvs] CMUCL commit: cross-sparc-branch src/lisp (os-common.c)
by Raymond Toy 16 Nov '10

16 Nov '10

Date: Tuesday, November 16, 2010 @ 17:06:31 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sparc-branch Modified: os-common.c Add some debugging prints, but not activated. -------------+ os-common.c | 33 ++++++++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) Index: src/lisp/os-common.c diff -u src/lisp/os-common.c:1.31 src/lisp/os-common.c:1.31.10.1 --- src/lisp/os-common.c:1.31 Mon Feb 1 14:27:07 2010 +++ src/lisp/os-common.c Tue Nov 16 17:06:29 2010 @@ -1,6 +1,6 @@ /* - $Header: /project/cmucl/cvsroot/src/lisp/os-common.c,v 1.31 2010-02-01 19:27:07 rtoy Rel $ + $Header: /project/cmucl/cvsroot/src/lisp/os-common.c,v 1.31.10.1 2010-11-16 22:06:29 rtoy Exp $ This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. @@ -195,6 +195,23 @@ */ convert_lisp_string(c_symbol_name, symbol_name->data, (symbol_name->length >> 2)); + +#if 0 + fprintf(stderr, "i =%2d: %s\n", i, c_symbol_name); + { + int k; + unsigned short int* wide_string; + + fprintf(stderr, " symbol_name->data = "); + + wide_string = (unsigned short int *) symbol_name->data; + + for (k = 0; k < (symbol_name->length >> 2); ++k) { + fprintf(stderr, "%4x ", wide_string[k]); + } + fprintf(stderr, "\n"); + } +#endif if (i == 0) { #if defined(sparc) if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name, "call_into_c")) { @@ -226,6 +243,20 @@ void *target_addr = os_dlsym(c_symbol_name, NIL); if (!target_addr) { +#if 0 + int k; + unsigned short int* wide_string; + + fprintf(stderr, "c_symbol_name = `%s'\n", c_symbol_name); + fprintf(stderr, "symbol_name->data = \n"); + + wide_string = (unsigned short int *) symbol_name->data; + + for (k = 0; k < (symbol_name->length >> 2); ++k) { + fprintf(stderr, "%4x ", wide_string[k]); + } + fprintf(stderr, "\n"); +#endif lose("%s is not defined.\n", c_symbol_name); } arch_make_linkage_entry(i / LINKAGE_DATA_ENTRY_SIZE, target_addr,

1 0

[cmucl-cvs] CMUCL commit: cross-sparc-branch src/compiler/generic (new-genesis.lisp)
by Raymond Toy 16 Nov '10

16 Nov '10

Date: Tuesday, November 16, 2010 @ 17:01:50 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/generic Tag: cross-sparc-branch Modified: new-genesis.lisp Don't need to do the weird stuff in cold-register-foreign-linkage and make-cold-linkage-vector anymore because I forgot to byte-swap the foreign-fixup stuff. o Add optional length parameter to MAYBE-BYTE-SWAP-STRING so we don't print out the entire string if we're not using it all. o Don't need to do the weird byte-swap in make-cold-linkage-vector. o Remove debugging print from make-cold-linkage-vector. o Swap bytes if necessary in fop-foreign-fixup and fop-foreign-data-fixup. o Remove optional swap-p parameter from cold-register-foreign-linkage because it's not needed anymore. o No need to supply swap-p parameter when registering "call_into_c". ------------------+ new-genesis.lisp | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) Index: src/compiler/generic/new-genesis.lisp diff -u src/compiler/generic/new-genesis.lisp:1.91.2.1 src/compiler/generic/new-genesis.lisp:1.91.2.2 --- src/compiler/generic/new-genesis.lisp:1.91.2.1 Tue Nov 16 12:29:34 2010 +++ src/compiler/generic/new-genesis.lisp Tue Nov 16 17:01:49 2010 @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.91.2.1 2010-11-16 17:29:34 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.91.2.2 2010-11-16 22:01:49 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1341,10 +1341,10 @@ (logior (ash (ldb (byte 8 0) n) 8) (ldb (byte 8 8) n))) -(defun maybe-byte-swap-string (s) +(defun maybe-byte-swap-string (s &optional (len (length s))) (unless (eq (c:backend-byte-order c:*backend*) (c:backend-byte-order c:*native-backend*)) - (dotimes (k (length s)) + (dotimes (k len) (let ((code (char-code (aref s k)))) (setf (aref s k) (code-char (swap-16 code)))))) s) @@ -1611,9 +1611,6 @@ do (write-indexed data-vec (+ i vm:vector-data-offset) (etypecase vec-elem (string - (format t "make-cold-linkage-vector: string = ~{~X~^ ~}~%" - (map 'list #'char-code vec-elem)) - (maybe-byte-swap-string vec-elem) (string-to-core vec-elem)) (number (number-to-core vec-elem)) @@ -1995,8 +1992,12 @@ #-unicode (read-n-bytes *fasl-file* sym 0 len) #+unicode - (dotimes (k len) - (setf (aref sym k) (load-char-code))) + (progn + (read-n-bytes *fasl-file* sym 0 (* 2 len)) + (format t "foreign-fixup: ~S~%" sym) + (format t " codes: ~{~X~^ ~}~%" (map 'list #'char-code sym)) + (maybe-byte-swap-string sym) + (format t " swaps: ~S~%" sym)) (let ((offset (read-arg 4)) (value #+linkage-table (cold-register-foreign-linkage sym :code) #-linkage-table (lookup-foreign-symbol sym))) @@ -2014,8 +2015,12 @@ #-unicode (read-n-bytes *fasl-file* sym 0 len) #+unicode - (dotimes (k len) - (setf (aref sym k) (load-char-code))) + (progn + (read-n-bytes *fasl-file* sym 0 (* 2 len)) + (format t "foreign-data-fixup: ~S~%" sym) + (format t " codes: ~{~X~^ ~}~%" (map 'list #'char-code sym)) + (maybe-byte-swap-string sym) + (format t " swaps: ~{~X~^ ~}~%" (map 'list #'char-code sym))) (let ((offset (read-arg 4)) (value (cold-register-foreign-linkage sym :data))) (do-cold-fixup code-object offset value kind)) @@ -2213,10 +2218,8 @@ (defvar *cold-foreign-hash* (make-hash-table :test #'equal)) #+linkage-table -(defun cold-register-foreign-linkage (sym type &optional (swap-p nil)) - (let ((entry-num (register-foreign-linkage (if swap-p - (maybe-byte-swap-string (copy-seq sym)) - sym) +(defun cold-register-foreign-linkage (sym type) + (let ((entry-num (register-foreign-linkage sym type *cold-linkage-table* *cold-foreign-hash*))) @@ -2233,7 +2236,7 @@ (cold-register-foreign-linkage "resolve_linkage_tramp" :code) #+(or sparc ppc) (progn - (cold-register-foreign-linkage (vm::extern-alien-name "call_into_c") :code t) + (cold-register-foreign-linkage (vm::extern-alien-name "call_into_c") :code) #-sparc (cold-register-foreign-linkage (vm::extern-alien-name "undefined_tramp") :data) #-sparc

1 0

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 16 Nov '10

16 Nov '10

Date: Tuesday, November 16, 2010 @ 14:27:39 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 13 +++++++++++++ 1 file changed, 13 insertions(+) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.9 src/general-info/release-20c.txt:1.10 --- src/general-info/release-20c.txt:1.9 Tue Nov 2 14:31:33 2010 +++ src/general-info/release-20c.txt Tue Nov 16 14:27:39 2010 @@ -43,6 +43,8 @@ needs to create. - Add src/tools/build-all.sh to automate building all of the variants (x87/sse2, unicode/8-bit). + - LISP::ENUMERATE-MATCHES had a keyword arg named + :VERIFY-EXISTANCE. This has been changed to :VERIFY-EXISTENCE. * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE @@ -68,6 +70,17 @@ the correct part of a complex number. - The command line parser now correctly handles the case where "--" is the first command option. + - build.sh was accidenally loading the site-init file, but it + shouldn't. + - On sparc, the vops to add a float to a complex were broken, + resulting in a complex number with the float as realpart and + garbage for the imaginary part. This is now fixed. + - XLIB::GET-BEST-AUTHORIZATION will now return authorization data + if the protocol is :local, if the xauth file contains just + "localhost/unix:0". Previously, no authorization data was + returned because GET-BEST-AUTHORIZATION was looking for the + hostname. + - FORMAT signals an warning if ~:; is used inside ~:[. * Trac Tickets:

1 0

[cmucl-cvs] CMUCL commit: src/code (format.lisp)
by Raymond Toy 16 Nov '10

16 Nov '10

Date: Tuesday, November 16, 2010 @ 14:15:38 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: format.lisp Signal a warning if ~:[ directive includes ~:;. From a message by Didier Verna, cmucl-imp, 2010-11-11. -------------+ format.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) Index: src/code/format.lisp diff -u src/code/format.lisp:1.96 src/code/format.lisp:1.97 --- src/code/format.lisp:1.96 Tue Apr 20 13:57:44 2010 +++ src/code/format.lisp Tue Nov 16 14:15:38 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/format.lisp,v 1.96 2010-04-20 17:57:44 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/format.lisp,v 1.97 2010-11-16 19:15:38 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2384,9 +2384,13 @@ (expand-maybe-conditional (car sublists))))) (if colonp (if (= (length sublists) 2) - (expand-bind-defaults () params - (expand-true-false-conditional (car sublists) - (cadr sublists))) + (progn + (when last-semi-with-colon-p + (error 'format-error + :complaint (intl:gettext "~~:; directive not effective in ~~:["))) + (expand-bind-defaults () params + (expand-true-false-conditional (car sublists) + (cadr sublists)))) (error 'format-error :complaint (intl:gettext "Must specify exactly two sections.")))

1 0

[cmucl-cvs] CMUCL commit: src/clx (display.lisp)
by Raymond Toy 16 Nov '10

16 Nov '10

Date: Tuesday, November 16, 2010 @ 14:13:56 Author: rtoy Path: /project/cmucl/cvsroot/src/clx Modified: display.lisp GET-BEST-AUTHORIZATION wasn't handling the case of a :local connection where the xauth file only contained one entry for localhost/unix:0. When the protocol is :local, we explicitly check for localhost. Previously, the host-address was converted the hostname, which isn't "localhost". --------------+ display.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) Index: src/clx/display.lisp diff -u src/clx/display.lisp:1.15 src/clx/display.lisp:1.16 --- src/clx/display.lisp:1.15 Mon Jul 13 09:54:35 2009 +++ src/clx/display.lisp Tue Nov 16 14:13:55 2010 @@ -19,7 +19,7 @@ ;;; #+cmu -(ext:file-comment "$Id: display.lisp,v 1.15 2009-07-13 13:54:35 rtoy Rel $") +(ext:file-comment "$Id: display.lisp,v 1.16 2010-11-16 19:13:55 rtoy Exp $") (in-package :xlib) @@ -117,7 +117,9 @@ (read-xauth-entry stream) (unless family (return)) (when (and (eql family protocol) - (equal host-address address) + (or (equal host-address address) + (and (eql family :local) + (equal address "localhost"))) (= number display) (let ((pos1 (position name *known-authorizations* :test #'string=)))

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs