- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] CMUCL commit: src/lisp (save.c)
by Raymond Toy 24 Sep '10

24 Sep '10

Date: Friday, September 24, 2010 @ 00:08:39 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: save.c Include libgen.h on Darwin/x86 to get rid of a compiler warning about dirname being undefined. --------+ save.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/lisp/save.c diff -u src/lisp/save.c:1.28 src/lisp/save.c:1.29 --- src/lisp/save.c:1.28 Mon Aug 2 17:45:36 2010 +++ src/lisp/save.c Fri Sep 24 00:08:39 2010 @@ -1,6 +1,6 @@ /* - $Header: /project/cmucl/cvsroot/src/lisp/save.c,v 1.28 2010-08-02 21:45:36 rtoy Exp $ + $Header: /project/cmucl/cvsroot/src/lisp/save.c,v 1.29 2010-09-24 04:08:39 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. @@ -29,7 +29,7 @@ #ifdef FEATURE_EXECUTABLE #include "elf.h" -#if !defined(DARWIN) +#if !(defined(DARWIN) && defined(__ppc__)) #include <libgen.h> #endif #endif

1 0

[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/code (fd-stream-extfmt.lisp)
by Raymond Toy 24 Sep '10

24 Sep '10

Date: Thursday, September 23, 2010 @ 20:51:03 Author: rtoy Path: /project/cmucl/cvsroot/src/code Tag: RELEASE-20B-BRANCH Modified: fd-stream-extfmt.lisp Merge change from HEAD that fixes the case of changing the external format from :iso8859-1 to something else. -----------------------+ fd-stream-extfmt.lisp | 150 ++++++++++++++++++++++++++++-------------------- 1 file changed, 90 insertions(+), 60 deletions(-) Index: src/code/fd-stream-extfmt.lisp diff -u src/code/fd-stream-extfmt.lisp:1.10.2.1 src/code/fd-stream-extfmt.lisp:1.10.2.2 --- src/code/fd-stream-extfmt.lisp:1.10.2.1 Mon Sep 6 11:41:30 2010 +++ src/code/fd-stream-extfmt.lisp Thu Sep 23 20:51:03 2010 @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.10.2.1 2010-09-06 15:41:30 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.10.2.2 2010-09-24 00:51:03 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -76,65 +76,95 @@ (setf (fd-stream-out stream) (ef-cout extfmt) ;;@@ (fd-stream-sout stream) (ef-sout extfmt) )) - ;; FIXME: We currently don't handle the case of changing from - ;; ISO8859-1 to something else. This is because ISO8859-1 doesn't - ;; use the string-buffer, so when we switch to another external - ;; format that does, we need to set up the string-buffer - ;; appropriately. - (when (and lisp::*enable-stream-buffer-p* updatep - (lisp-stream-string-buffer stream)) - ;; We want to reconvert any octets that haven't been converted - ;; yet. So, we need to figure out which octet to start with. - ;; This is done by converting (the previously converted) octets - ;; until we've converted the right number of characters. - (let ((ibuf (lisp-stream-in-buffer stream)) - (sindex (lisp-stream-string-index stream)) - (index 0) - (state (fd-stream-saved-oc-state stream))) - ;; Reconvert all the octets we've already converted and read. - ;; We don't know how many octets that is, but do know how many - ;; characters there are. - (multiple-value-bind (s pos count new-state) - (octets-to-string ibuf - :start 0 - :external-format old-format - :string (make-string (1- sindex)) - :state state - :error (fd-stream-octets-to-char-error stream)) - (declare (ignore s pos)) - (setf state new-state) - (setf index count)) - ;; We now know the last octet that was used. Now convert the - ;; rest of the octets using the new format. The new - ;; characters are placed in the string buffer at the point - ;; just after the last character that we've already read. - (multiple-value-bind (s pos count new-state) - (octets-to-string ibuf - :start index - :end (fd-stream-in-length stream) - :external-format (fd-stream-external-format stream) - :string (lisp-stream-string-buffer stream) - :s-start sindex - :state state - :error (fd-stream-octets-to-char-error stream)) - (cond ((eq (fd-stream-external-format stream) :iso8859-1) - ;; ISO8859-1 doesn't use the string-buffer, so we - ;; need to copy the string to the in-buffer and then - ;; set the string-buffer to nil to indicate we're not - ;; using the string buffer anymore. - (let ((index (- in-buffer-length count))) - (dotimes (k count) - (setf (aref ibuf (+ k index)) - (char-code (aref s (+ k sindex))))) - (setf (lisp-stream-in-index stream) index) - (setf (lisp-stream-string-buffer stream) nil) - (setf (lisp-stream-string-buffer-len stream) 0) - (setf (lisp-stream-string-index stream) 0))) - (t - (setf (lisp-stream-string-index stream) sindex) - (setf (lisp-stream-string-buffer-len stream) pos) - (setf (lisp-stream-in-index stream) (+ index count)) - (setf (fd-stream-oc-state stream) new-state)))))) + ;; The following handles the case of setting the external format + ;; for input streams where we need to handle the various buffering + ;; strategies. + ;; + (cond + ((eq old-format (fd-stream-external-format stream)) + ;; Nothing to do if the new and old formats are the same. + ) + ((and lisp::*enable-stream-buffer-p* updatep + (lisp-stream-string-buffer stream)) + ;; We want to reconvert any octets that haven't been converted + ;; yet. So, we need to figure out which octet to start with. + ;; This is done by converting (the previously converted) octets + ;; until we've converted the right number of characters. Or, + ;; since we have the octet-count, just sum up them up to figure + ;; out how many octets we've already consumed. + (let* ((ibuf (lisp-stream-in-buffer stream)) + (sindex (lisp-stream-string-index stream)) + (octet-count (fd-stream-octet-count stream)) + (oc (make-array in-buffer-length :element-type '(unsigned-byte 8))) + (index (loop for k of-type fixnum from 0 below (1- sindex) + summing (aref octet-count k)))) + ;; We now know the last octet that was used. Now convert the + ;; rest of the octets using the new format. The new + ;; characters are placed in the string buffer at the point + ;; just after the last character that we've already read. + (multiple-value-bind (s pos count new-state) + (stream::octets-to-string-counted ibuf + oc + :start index + :end (fd-stream-in-length stream) + :external-format (fd-stream-external-format stream) + :string (lisp-stream-string-buffer stream) + :s-start sindex + :error (fd-stream-octets-to-char-error stream)) + (replace octet-count oc :start1 index :end2 pos) + (cond ((eq (fd-stream-external-format stream) :iso8859-1) + ;; ISO8859-1 doesn't use the string-buffer, so we + ;; need to copy the string to the in-buffer and then + ;; set the string-buffer to nil to indicate we're not + ;; using the string buffer anymore. + (let ((index (- in-buffer-length count))) + (dotimes (k count) + (setf (aref ibuf (+ k index)) + (char-code (aref s (+ k sindex))))) + (setf (lisp-stream-in-index stream) index) + (setf (lisp-stream-string-buffer stream) nil) + (setf (lisp-stream-string-buffer-len stream) 0) + (setf (lisp-stream-string-index stream) 0))) + (t + (setf (lisp-stream-string-index stream) sindex) + (setf (lisp-stream-string-buffer-len stream) pos) + (setf (lisp-stream-in-index stream) (+ index count)) + (setf (fd-stream-oc-state stream) new-state)))))) + ((and updatep (lisp-stream-in-buffer stream)) + ;; This means the external format was ISO8859-1 and we're + ;; switching to something else. If so, we need to convert all + ;; the octets that haven't been processed yet and place them in + ;; the string buffer. We also need to adjust the in-buffer to + ;; put those octets in the expected place at the beginning of + ;; in-buffer. + (let ((index (lisp-stream-in-index stream)) + (ibuf (lisp-stream-in-buffer stream))) + (setf (lisp-stream-string-buffer stream) + (make-string (1+ in-buffer-length))) + (setf (lisp-stream-string-index stream) 1) + ;; Set the unread char to be the last read octet. + (setf (aref (lisp-stream-string-buffer stream) 0) + (code-char (aref ibuf (1- index)))) + + (let ((oc (or (fd-stream-octet-count stream) + (setf (fd-stream-octet-count stream) + (make-array in-buffer-length :element-type '(unsigned-byte 8)))))) + (multiple-value-bind (s pos count new-state) + (stream::octets-to-string-counted ibuf + oc + :start index + :external-format (fd-stream-external-format stream) + :string (lisp-stream-string-buffer stream) + :s-start 1 + :error (fd-stream-octets-to-char-error stream)) + (declare (ignore s)) + (setf (lisp-stream-string-buffer-len stream) pos) + (setf (fd-stream-oc-state stream) new-state) + ;; Move the octets from the end of the in-buffer to the + ;; beginning. Set the index to the number of octets we've + ;; processed. + (replace ibuf ibuf :start2 index) + (setf (lisp-stream-in-index stream) count)))))) extfmt))

1 0

[cmucl-cvs] CMUCL commit: src/code (fd-stream-extfmt.lisp)
by Raymond Toy 24 Sep '10

24 Sep '10

Date: Thursday, September 23, 2010 @ 20:36:03 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: fd-stream-extfmt.lisp o When changing external format from :iso8859-1 to another format, we need to call octets-to-string-counted to setup the octet count array correctly. o Minor cleanup of code. -----------------------+ fd-stream-extfmt.lisp | 105 +++++++++++++++++++++++++----------------------- 1 file changed, 55 insertions(+), 50 deletions(-) Index: src/code/fd-stream-extfmt.lisp diff -u src/code/fd-stream-extfmt.lisp:1.12 src/code/fd-stream-extfmt.lisp:1.13 --- src/code/fd-stream-extfmt.lisp:1.12 Tue Sep 7 23:04:54 2010 +++ src/code/fd-stream-extfmt.lisp Thu Sep 23 20:36:03 2010 @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.12 2010-09-08 03:04:54 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.13 2010-09-24 00:36:03 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -92,44 +92,44 @@ ;; until we've converted the right number of characters. Or, ;; since we have the octet-count, just sum up them up to figure ;; out how many octets we've already consumed. - (let ((ibuf (lisp-stream-in-buffer stream)) - (sindex (lisp-stream-string-index stream)) - (index 0) - (octet-count (fd-stream-octet-count stream))) - (setf index (loop for k of-type fixnum from 0 below (1- sindex) summing (aref octet-count k))) + (let* ((ibuf (lisp-stream-in-buffer stream)) + (sindex (lisp-stream-string-index stream)) + (octet-count (fd-stream-octet-count stream)) + (oc (make-array in-buffer-length :element-type '(unsigned-byte 8))) + (index (loop for k of-type fixnum from 0 below (1- sindex) + summing (aref octet-count k)))) ;; We now know the last octet that was used. Now convert the ;; rest of the octets using the new format. The new ;; characters are placed in the string buffer at the point ;; just after the last character that we've already read. - (let ((oc (make-array in-buffer-length :element-type '(unsigned-byte 8)))) - (multiple-value-bind (s pos count new-state) - (stream::octets-to-string-counted ibuf - oc - :start index - :end (fd-stream-in-length stream) - :external-format (fd-stream-external-format stream) - :string (lisp-stream-string-buffer stream) - :s-start sindex - :error (fd-stream-octets-to-char-error stream)) - (replace octet-count oc :start1 index :end2 pos) - (cond ((eq (fd-stream-external-format stream) :iso8859-1) - ;; ISO8859-1 doesn't use the string-buffer, so we - ;; need to copy the string to the in-buffer and then - ;; set the string-buffer to nil to indicate we're not - ;; using the string buffer anymore. - (let ((index (- in-buffer-length count))) - (dotimes (k count) - (setf (aref ibuf (+ k index)) - (char-code (aref s (+ k sindex))))) - (setf (lisp-stream-in-index stream) index) - (setf (lisp-stream-string-buffer stream) nil) - (setf (lisp-stream-string-buffer-len stream) 0) - (setf (lisp-stream-string-index stream) 0))) - (t - (setf (lisp-stream-string-index stream) sindex) - (setf (lisp-stream-string-buffer-len stream) pos) - (setf (lisp-stream-in-index stream) (+ index count)) - (setf (fd-stream-oc-state stream) new-state))))))) + (multiple-value-bind (s pos count new-state) + (stream::octets-to-string-counted ibuf + oc + :start index + :end (fd-stream-in-length stream) + :external-format (fd-stream-external-format stream) + :string (lisp-stream-string-buffer stream) + :s-start sindex + :error (fd-stream-octets-to-char-error stream)) + (replace octet-count oc :start1 index :end2 pos) + (cond ((eq (fd-stream-external-format stream) :iso8859-1) + ;; ISO8859-1 doesn't use the string-buffer, so we + ;; need to copy the string to the in-buffer and then + ;; set the string-buffer to nil to indicate we're not + ;; using the string buffer anymore. + (let ((index (- in-buffer-length count))) + (dotimes (k count) + (setf (aref ibuf (+ k index)) + (char-code (aref s (+ k sindex))))) + (setf (lisp-stream-in-index stream) index) + (setf (lisp-stream-string-buffer stream) nil) + (setf (lisp-stream-string-buffer-len stream) 0) + (setf (lisp-stream-string-index stream) 0))) + (t + (setf (lisp-stream-string-index stream) sindex) + (setf (lisp-stream-string-buffer-len stream) pos) + (setf (lisp-stream-in-index stream) (+ index count)) + (setf (fd-stream-oc-state stream) new-state)))))) ((and updatep (lisp-stream-in-buffer stream)) ;; This means the external format was ISO8859-1 and we're ;; switching to something else. If so, we need to convert all @@ -145,21 +145,26 @@ ;; Set the unread char to be the last read octet. (setf (aref (lisp-stream-string-buffer stream) 0) (code-char (aref ibuf (1- index)))) - (multiple-value-bind (s pos count new-state) - (octets-to-string ibuf - :start index - :external-format (fd-stream-external-format stream) - :string (lisp-stream-string-buffer stream) - :s-start 1 - :error (fd-stream-octets-to-char-error stream)) - (declare (ignore s)) - (setf (lisp-stream-string-buffer-len stream) pos) - (setf (fd-stream-oc-state stream) new-state) - ;; Move the octets from the end of the in-buffer to the - ;; beginning. Set the index to the number of octets we've - ;; processed. - (replace ibuf ibuf :start2 index) - (setf (lisp-stream-in-index stream) count))))) + + (let ((oc (or (fd-stream-octet-count stream) + (setf (fd-stream-octet-count stream) + (make-array in-buffer-length :element-type '(unsigned-byte 8)))))) + (multiple-value-bind (s pos count new-state) + (stream::octets-to-string-counted ibuf + oc + :start index + :external-format (fd-stream-external-format stream) + :string (lisp-stream-string-buffer stream) + :s-start 1 + :error (fd-stream-octets-to-char-error stream)) + (declare (ignore s)) + (setf (lisp-stream-string-buffer-len stream) pos) + (setf (fd-stream-oc-state stream) new-state) + ;; Move the octets from the end of the in-buffer to the + ;; beginning. Set the index to the number of octets we've + ;; processed. + (replace ibuf ibuf :start2 index) + (setf (lisp-stream-in-index stream) count)))))) extfmt))

1 0

[cmucl-cvs] CMUCL commit: src (2 files)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 22:30:54 Author: rtoy Path: /project/cmucl/cvsroot/src Modified: docs/cmu-user/cmu-user.tex general-info/release-20b.txt Merge changes from 20b branch. ------------------------------+ docs/cmu-user/cmu-user.tex | 2 +- general-info/release-20b.txt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) Index: src/docs/cmu-user/cmu-user.tex diff -u src/docs/cmu-user/cmu-user.tex:1.43 src/docs/cmu-user/cmu-user.tex:1.44 --- src/docs/cmu-user/cmu-user.tex:1.43 Sun Aug 1 12:18:01 2010 +++ src/docs/cmu-user/cmu-user.tex Mon Sep 20 22:30:54 2010 @@ -47,7 +47,7 @@ \newcommand{\keywords}{lisp, Common Lisp, manual, compiler, programming language implementation, programming environment} -\date{August 2010 \\ Snapshot 2010-08} +\date{October 2010 \\ 20b} \begin{document} Index: src/general-info/release-20b.txt diff -u src/general-info/release-20b.txt:1.49 src/general-info/release-20b.txt:1.50 --- src/general-info/release-20b.txt:1.49 Sun Sep 19 00:10:52 2010 +++ src/general-info/release-20b.txt Mon Sep 20 22:30:54 2010 @@ -2,7 +2,7 @@ The CMUCL project is pleased to announce the release of CMUCL 20b. This is a major release which contains numerous enhancements and -bug fixes from the 19f release. +bug fixes from the 20a release. CMUCL is a free, high performance implementation of the Common Lisp programming language which runs on most major Unix platforms. It

1 0

[cmucl-cvs] CMUCL commit: src/code (unidata.lisp)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 20:57:29 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: unidata.lisp When there's more than one possible completion, we need to keep the original completions along with the extensions. --------------+ unidata.lisp | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) Index: src/code/unidata.lisp diff -u src/code/unidata.lisp:1.21 src/code/unidata.lisp:1.22 --- src/code/unidata.lisp:1.21 Sun Sep 19 21:17:14 2010 +++ src/code/unidata.lisp Mon Sep 20 20:57:29 2010 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.21 2010-09-20 01:17:14 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.22 2010-09-21 00:57:29 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -18,7 +18,7 @@ (defconstant +unidata-path+ #p"ext-formats:unidata.bin") -(defvar *unidata-version* "$Revision: 1.21 $") +(defvar *unidata-version* "$Revision: 1.22 $") (defstruct unidata range @@ -1189,7 +1189,9 @@ (when n (setq completep (> (aref (dictionary-codev dict) n) -1))) #+(or debug-uc) - (format t "n,p,complete = ~S ~S ~S~%" n p completep) + (progn + (format t "n,p,complete = ~S ~S ~S~%" n p completep) + (when n (format t "match = ~S~%" (subseq prefix 0 p)))) (cond ((not p) (values (%str prefix) nil nil)) ((= p (length prefix)) @@ -1246,15 +1248,17 @@ (t ;; There's more than one possible completion. ;; Try to extend each of those completions one - ;; more step. - (let* ((p (mapcan #'(lambda (ex) - (let ((next (node-next (cdr ex) dict))) - (if next - (mapcar #'(lambda (n) - (concatenate 'string (car ex) (car n))) - (node-next (cdr ex) dict)) - (list (car ex))))) - x)) + ;; more step, but we still want to keep the + ;; original completions. + (let* ((p (append (mapcar #'car x) + (mapcan #'(lambda (ex) + (let ((next (node-next (cdr ex) dict))) + (if next + (mapcar #'(lambda (n) + (concatenate 'string (car ex) (car n))) + (node-next (cdr ex) dict)) + (list (car ex))))) + x))) (q (%mip p))) (setq prefix (concatenate 'string prefix q))

1 0

[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/general-info (release-20b.txt)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 20:19:21 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Tag: RELEASE-20B-BRANCH Modified: release-20b.txt Fix typo: 19f->20a. -----------------+ release-20b.txt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: src/general-info/release-20b.txt diff -u src/general-info/release-20b.txt:1.41.2.7 src/general-info/release-20b.txt:1.41.2.8 --- src/general-info/release-20b.txt:1.41.2.7 Sat Sep 18 23:46:02 2010 +++ src/general-info/release-20b.txt Mon Sep 20 20:19:21 2010 @@ -2,7 +2,7 @@ The CMUCL project is pleased to announce the release of CMUCL 20b. This is a major release which contains numerous enhancements and -bug fixes from the 19f release. +bug fixes from the 20a release. CMUCL is a free, high performance implementation of the Common Lisp programming language which runs on most major Unix platforms. It

1 0

[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/docs/cmu-user (cmu-user.tex)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 20:17:36 Author: rtoy Path: /project/cmucl/cvsroot/src/docs/cmu-user Tag: RELEASE-20B-BRANCH Modified: cmu-user.tex Set date for 20b. --------------+ cmu-user.tex | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: src/docs/cmu-user/cmu-user.tex diff -u src/docs/cmu-user/cmu-user.tex:1.43 src/docs/cmu-user/cmu-user.tex:1.43.2.1 --- src/docs/cmu-user/cmu-user.tex:1.43 Sun Aug 1 12:18:01 2010 +++ src/docs/cmu-user/cmu-user.tex Mon Sep 20 20:17:36 2010 @@ -47,7 +47,7 @@ \newcommand{\keywords}{lisp, Common Lisp, manual, compiler, programming language implementation, programming environment} -\date{August 2010 \\ Snapshot 2010-08} +\date{October 2010 \\ 20b} \begin{document}

1 0

[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/i18n/locale (3 files)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 20:12:16 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Tag: RELEASE-20B-BRANCH Modified: cmucl-x87.pot en(a)piglatin/LC_MESSAGES/cmucl-x87.po ko/LC_MESSAGES/cmucl-x87.po Regenerate from current sources. --------------------------------------+ cmucl-x87.pot | 184 ++++++++++++++++++++++++++++++++- en(a)piglatin/LC_MESSAGES/cmucl-x87.po | 184 ++++++++++++++++++++++++++++++++- ko/LC_MESSAGES/cmucl-x87.po | 184 ++++++++++++++++++++++++++++++++- 3 files changed, 549 insertions(+), 3 deletions(-) Index: src/i18n/locale/cmucl-x87.pot diff -u src/i18n/locale/cmucl-x87.pot:1.3 src/i18n/locale/cmucl-x87.pot:1.3.4.1 --- src/i18n/locale/cmucl-x87.pot:1.3 Tue Apr 20 14:05:43 2010 +++ src/i18n/locale/cmucl-x87.pot Mon Sep 20 20:12:16 2010 @@ -15,8 +15,190 @@ "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +" VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" + Index: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x87.po diff -u src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.4.4.2 src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.4.4.3 --- src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.4.4.2 Wed Sep 15 12:16:44 2010 +++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x87.po Mon Sep 20 20:12:16 2010 @@ -16,7 +16,189 @@ "Language: Pig Latin\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "Unknownway SC otay SC-Asecay orfay ~S:~% ~S" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +"\t VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" Index: src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.3 src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.3.4.1 --- src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.3 Tue Apr 20 14:05:43 2010 +++ src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po Mon Sep 20 20:12:16 2010 @@ -14,7 +14,189 @@ "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +"\t VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr ""

1 0

[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/compiler/x86 (float.lisp)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 20:11:32 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86 Tag: RELEASE-20B-BRANCH Modified: float.lisp Text domain should be cmucl-x87, not cmucl-x86-vm. ------------+ float.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/compiler/x86/float.lisp diff -u src/compiler/x86/float.lisp:1.60 src/compiler/x86/float.lisp:1.60.4.1 --- src/compiler/x86/float.lisp:1.60 Tue Apr 20 13:57:47 2010 +++ src/compiler/x86/float.lisp Mon Sep 20 20:11:32 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.60 2010-04-20 17:57:47 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.60.4.1 2010-09-21 00:11:32 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,7 +22,7 @@ ;;; (in-package :x86) -(intl:textdomain "cmucl-x86-vm") +(intl:textdomain "cmucl-x87")

1 0

[cmucl-cvs] CMUCL commit: src/code (string.lisp)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Monday, September 20, 2010 @ 19:01:15 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: string.lisp o Inhibit warnings from SURROGATEP; I'm tired seeing the code deletion notes now. o Tell the compiler what type the first return value of CODEPOINT is. Apparently, the compiler can't figure that out itself. -------------+ string.lisp | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) Index: src/code/string.lisp diff -u src/code/string.lisp:1.26 src/code/string.lisp:1.27 --- src/code/string.lisp:1.26 Wed Sep 15 17:06:38 2010 +++ src/code/string.lisp Mon Sep 20 19:01:15 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/string.lisp,v 1.26 2010-09-15 21:06:38 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.27 2010-09-20 23:01:15 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -40,7 +40,9 @@ for. :High means to test for the high (leading) surrogate; :Low tests for the low (trailing surrogate). A value of :Any or Nil tests for any surrogate value (high or low)." - (declare (type (or character codepoint) char-or-code)) + (declare (type (or character codepoint) char-or-code) + (type (or null (member :high :leading :low :trailing :any)) surrogate-type) + (optimize (inhibit-warnings 3))) (let ((code (if (characterp char-or-code) (char-code char-or-code) char-or-code))) @@ -74,14 +76,16 @@ (cond ((and (surrogatep code :high) (< (1+ i) end)) (let ((tmp (char-code (schar string (1+ i))))) (if (surrogatep tmp :low) - (values (+ (ash (- code #xD800) 10) tmp #x2400) +1) - (values code nil)))) + (values (truly-the codepoint (+ (ash (- code #xD800) 10) tmp #x2400)) + +1) + (values (truly-the codepoint code) nil)))) ((and (surrogatep code :low) (> i 0)) (let ((tmp (char-code (schar string (1- i))))) (if (surrogatep tmp :high) - (values (+ (ash (- tmp #xD800) 10) code #x2400) -1) - (values code nil)))) - (t (values code nil))))) + (values (truly-the codepoint (+ (ash (- tmp #xD800) 10) code #x2400)) + -1) + (values (truly-the codepoint code) nil)))) + (t (values (truly-the codepoint code) nil))))) (defun surrogates (codepoint) "Return the high and low surrogate characters for Codepoint. If

1 0