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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-9-g7eea77d
by Raymond Toy 17 Jan '13

17 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 7eea77dfeb313add92ed741aad47e6fbe714220c (commit) via bf9e40aa2989d9ae6f2055cb91405802cf99c2ff (commit) via ca46df29c0cb68c07e746be0aca510a5d6873797 (commit) from ce037e96582861f0f78c071a0900803a3628f893 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 7eea77dfeb313add92ed741aad47e6fbe714220c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 16 20:48:35 2013 -0800 Change default output format to pdf. o Change default target to generate pdf file o Update rerun loop with a better pattern that is less likely to cause an infinite loop. diff --git a/src/docs/internals/Makefile b/src/docs/internals/Makefile index bbb389b..0e9d8e6 100644 --- a/src/docs/internals/Makefile +++ b/src/docs/internals/Makefile @@ -18,7 +18,7 @@ FILES=architecture.tex back.tex compiler-overview.tex compiler.tex debugger.tex FIGURES= -all : $(MASTERFILE).dvi +all : $(MASTERFILE).pdf $(MASTERFILE).dvi : $(FILES) $(FIGURES) $(LATEX) $(MASTERFILE).tex @@ -52,7 +52,7 @@ firsttime: $(MASTERFILE).dvi %.pdf : %.tex $(PDFLATEX) $^ - @while ( grep -v 'Package: rerunfilecheck' $*.log | grep Rerun > /dev/null ); do \ + @while ( grep 'Rerun to get cross' $*.log > /dev/null ); do \ $(PDFLATEX) $<; \ done $(PDFLATEX) $< commit bf9e40aa2989d9ae6f2055cb91405802cf99c2ff Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 16 20:45:42 2013 -0800 Generate pdf file by default. o Change default from ps to pdf output. o Fix pattern for rerunning latex to prevent infinite loop due to extraneous occurrences of "Rerun". (From Carl.) o Reorder rules for generating pdf so that we generate the indices and such before starting the loop. Otherwise, we're in an infinite loop because the indices haven't been generated. diff --git a/src/docs/cmu-user/Makefile b/src/docs/cmu-user/Makefile index 4a3e345..25924ef 100644 --- a/src/docs/cmu-user/Makefile +++ b/src/docs/cmu-user/Makefile @@ -43,7 +43,7 @@ FILES = *.tex .SUFFIXES: .tex .dvi .ps .ps1 .pdf .html .info -all: cmu-user.ps +all: cmu-user.pdf # Runs LaTeX once, then reruns LaTeX as many times as necessary to get @@ -53,7 +53,7 @@ all: cmu-user.ps # been modified. %.dvi : %.tex $(FILES) $(LATEX) $< - @while ( grep Rerun $*.log > /dev/null ); do \ + @while ( grep -q "Rerun to get cross" $*.log > /dev/null ); do \ $(LATEX) $<; \ done if [ "$<" = "cmu-user.tex" ]; then $(MAKE) index; else $(MAKE) index-letter; fi @@ -62,11 +62,11 @@ all: cmu-user.ps %.pdf : %.tex $(FILES) $(PDFLATEX) $< - @while ( grep -v 'Package: rerunfilecheck' $*.log | grep Rerun > /dev/null ); do \ + if [ "$<" = "cmu-user.tex" ]; then $(MAKE) index; else $(MAKE) index-letter; fi + @while ( grep 'Rerun to get cross' $*.log > /dev/null ); do \ $(PDFLATEX) $<; \ + if [ "$<" = "cmu-user.tex" ]; then $(MAKE) index; else $(MAKE) index-letter; fi; \ done - if [ "$<" = "cmu-user.tex" ]; then $(MAKE) index; else $(MAKE) index-letter; fi - $(PDFLATEX) $< # the "-fix" option to hevea makes it run as many times as necessary # to resolve all cross-references and generate an index. commit ca46df29c0cb68c07e746be0aca510a5d6873797 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 16 20:42:33 2013 -0800 Fix issues with creating pdf and ps documents, from Carl. cmu-user.tex: o Include ifpdf package design.tex: o Include ifpdf package o Remove the home-grown ifpdf macro. macros.tex: o Remove the home-grown ifpdf macro. introduction.tex: unicode.tex: o Use \url instead of \href for URLs. diff --git a/src/docs/cmu-user/cmu-user.tex b/src/docs/cmu-user/cmu-user.tex index 4a94c16..55e8cde 100644 --- a/src/docs/cmu-user/cmu-user.tex +++ b/src/docs/cmu-user/cmu-user.tex @@ -32,6 +32,7 @@ \usepackage{xspace} \usepackage{alltt} \usepackage{index} +\usepackage{ifpdf} \usepackage{ifthen} \usepackage{calc} \usepackage{sectsty} diff --git a/src/docs/cmu-user/introduction.tex b/src/docs/cmu-user/introduction.tex index dbce9ba..2075509 100644 --- a/src/docs/cmu-user/introduction.tex +++ b/src/docs/cmu-user/introduction.tex @@ -47,7 +47,7 @@ about \cmucl. Users will also need a separate manual describing the \href{http://www.lispworks.com/documentation/HyperSpec/Front/index.htm} {Hyperspec}. \else -\emph{Hyperspec} at \href{http://www.lispworks.com/documentation/HyperSpec/Front/index.htm} +\emph{Hyperspec} at \url{http://www.lispworks.com/documentation/HyperSpec/Front/index.htm} \fi diff --git a/src/docs/cmu-user/macros.tex b/src/docs/cmu-user/macros.tex index 9c8cba5..bfb1669 100644 --- a/src/docs/cmu-user/macros.tex +++ b/src/docs/cmu-user/macros.tex @@ -4,18 +4,6 @@ % % by Raymond Toy - -% define a new conditional statement which allows us to include -% stuff conditionally when compiling to PDF. -\newif\ifpdf -\ifx\pdfoutput\undefined - \pdffalse -\else - \pdfoutput=1 - \pdftrue -\fi - - % use Palatino \renewcommand{\rmdefault}{ppl} \ifpdf diff --git a/src/docs/cmu-user/unicode.tex b/src/docs/cmu-user/unicode.tex index c6a1a98..cab4c59 100644 --- a/src/docs/cmu-user/unicode.tex +++ b/src/docs/cmu-user/unicode.tex @@ -11,7 +11,7 @@ To understand the support for Unicode, we refer the reader to the \ifpdf \href{http://www.unicode.org/}{Unicode standard}. \else -\emph{Unicode standard} at \href{http://www.unicode.org} +\emph{Unicode standard} at \url{http://www.unicode.org} \fi \section{Changes} diff --git a/src/docs/internals/design.tex b/src/docs/internals/design.tex index 753ed61..776ee1e 100644 --- a/src/docs/internals/design.tex +++ b/src/docs/internals/design.tex @@ -2,23 +2,12 @@ %\documentstyle{report} % -*- Dictionary: design -*- \documentclass{report} +\usepackage{ifpdf} \usepackage{ifthen} \usepackage{calc} \usepackage{palatino} \usepackage[hyperindex=false,colorlinks=false,urlcolor=blue]{hyperref} -% define a new conditional statement which allows us to include -% stuff conditionally when compiling to PDF. -\newif\ifpdf -\ifx\pdfoutput\undefined - \pdffalse -\else - \pdfoutput=1 - \pdftrue -\fi - - - \title{Design of CMU Common Lisp} \date{January 15, 2003} \author{Robert A. MacLachlan (ed)} ----------------------------------------------------------------------- Summary of changes: src/docs/cmu-user/Makefile | 10 +++++----- src/docs/cmu-user/cmu-user.tex | 1 + src/docs/cmu-user/introduction.tex | 2 +- src/docs/cmu-user/macros.tex | 12 ------------ src/docs/cmu-user/unicode.tex | 2 +- src/docs/internals/Makefile | 4 ++-- src/docs/internals/design.tex | 13 +------------ 7 files changed, 11 insertions(+), 33 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-6-gce037e9
by Raymond Toy 17 Jan '13

17 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via ce037e96582861f0f78c071a0900803a3628f893 (commit) from 214b6ff298c8d16a1e9b3f2d57d025e19abe4720 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit ce037e96582861f0f78c071a0900803a3628f893 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 16 20:20:41 2013 -0800 Fix ticket:69 Change *unidata-path* to be a pathname object instead of a namestring. diff --git a/src/code/unidata.lisp b/src/code/unidata.lisp index 45e8804..37134cc 100644 --- a/src/code/unidata.lisp +++ b/src/code/unidata.lisp @@ -20,7 +20,7 @@ unicode-complete unicode-complete-name load-all-unicode-data)) -(defvar *unidata-path* "ext-formats:unidata.bin") +(defvar *unidata-path* #p"ext-formats:unidata.bin") (defvar *unidata-version* "$Revision: 1.28 $") ----------------------------------------------------------------------- Summary of changes: src/code/unidata.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch rtoy-search-list-as-host created. snapshot-2013-01-6-g4711af8
by Raymond Toy 17 Jan '13

17 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rtoy-search-list-as-host has been created at 4711af8412ffff090f22421659b47781025e4291 (commit) - Log ----------------------------------------------------------------- commit 4711af8412ffff090f22421659b47781025e4291 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 16 20:17:30 2013 -0800 First cut at making search-list a pathname host. This attempts to make a search-list pathname fill the host slot of a pathname with a search-list object instead of the current scheme which uses a unix host for the host and puts the search-list as the first part of the directory slot. code/pathname.lisp:: * Make SEARCH-LIST as subtype of HOST, defining appropriate parsers and unparsers. code/filesys.lisp: * Update PARSE-UNIX-NAMESTRING (which also handles search-lists) to return the search-list object as the host instead of putting in the directory part. diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index 308b8b5..b3362ee 100644 --- a/src/code/filesys.lisp +++ b/src/code/filesys.lisp @@ -358,11 +358,12 @@ name)) (error 'parse-error)) ;; Now we have everything we want. So return it. - (values nil ; no host for unix namestrings. + (values (if search-list + (intern-search-list search-list) + ;; no host for unix namestrings. + nil) nil ; no devices for unix namestrings. (collect ((dirs)) - (when search-list - (dirs (intern-search-list search-list))) (dolist (piece pieces) (let ((piece-start (car piece)) (piece-end (cdr piece))) diff --git a/src/code/pathname.lisp b/src/code/pathname.lisp index 0092a82..1c6d992 100644 --- a/src/code/pathname.lisp +++ b/src/code/pathname.lisp @@ -1503,6 +1503,14 @@ a host-structure or string." ;;; The SEARCH-LIST structure. ;;; (defstruct (search-list + (:include host + (:parse #'parse-search-list-namestring) + (:unparse #'unparse-search-list-namestring) + (:unparse-host #'unparse-search-list-host) + (:unparse-directory #'unparse-search-list-directory) + (:unparse-file #'unparse-unix-file) + (:unparse-enough #'unparse-unix-enough) + (:customary-case :lower)) (:print-function %print-search-list) (:make-load-form-fun (lambda (search-list) @@ -1524,6 +1532,37 @@ a host-structure or string." (print-unreadable-object (sl stream :type t) (write-string (search-list-name sl) stream))) +(defun unparse-search-list-namestring (pathname) + (declare (type pathname pathname)) + (concatenate 'simple-string + (unparse-search-list-directory pathname) + (unparse-unix-file pathname))) + +(defun unparse-search-list-host (pathname) + (declare (type pathname pathname)) + (search-list-name (%pathname-host pathname))) + +(defun unparse-search-list-directory (pathname) + (declare (type pathname pathname)) + ;; FIXME: This is a hack! + (unparse-unix-directory-list (list* :absolute + (%pathname-host pathname) + (cdr (%pathname-directory pathname))))) + +(defun parse-search-list-namestring (pathname start end) + (declare (type simple-base-string namestr) + (type index start end)) + (multiple-value-bind (host device dirs name type version) + (parse-unix-namestring pathname start end) + (unless (typep (second dirs) 'search-list) + (error 'parse-error)) + (values (second dirs) + nil + (list* :absolute (cddr dirs)) + name + type + version))) + ;;; *SEARCH-LISTS* -- internal. ;;; ;;; Hash table mapping search-list names to search-list structures. @@ -1589,6 +1628,7 @@ a host-structure or string." ;;; doesn't start with a search-list, then either error (if FLAME-IF-NONE ;;; is true) or return NIL (if FLAME-IF-NONE is false). ;;; +#+nil (defun extract-search-list (pathname flame-if-none) (with-pathname (pathname pathname) (let* ((directory (%pathname-directory pathname)) @@ -1600,6 +1640,28 @@ a host-structure or string." (t nil))))) +(defun extract-search-list (search-pathname flame-if-none) + (with-pathname (pathname search-pathname) + (let* ((search-list (%pathname-host pathname))) + (when search-list + (sys::%primitive print "search list found") + (typecase search-list + (string + (sys::%primitive print "search list is a string!")) + (search-list + (sys::%primitive print "search list is a search-list object")) + (t + (sys::%primitive print "search list unknown type!")))) + (cond ((search-list-p search-list) + search-list) + (flame-if-none + (sys::%primitive print "flame on!") + (sys::%primitive print search-pathname) + nil + #+nil(error (intl:gettext "~S doesn't start with a search-list.") pathname)) + (t + nil))))) + ;;; SEARCH-LIST -- public. ;;; ;;; We have to convert the internal form of the search-list back into a ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-5-g214b6ff
by Raymond Toy 06 Jan '13

06 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 214b6ff298c8d16a1e9b3f2d57d025e19abe4720 (commit) from e7d0e7008ecd1eab4f1274a3db8e2812a6b59014 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 214b6ff298c8d16a1e9b3f2d57d025e19abe4720 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Jan 6 09:53:43 2013 -0800 Add label for source paths that was missing. diff --git a/src/docs/internals/interface.tex b/src/docs/internals/interface.tex index 2a192d8..b08631e 100644 --- a/src/docs/internals/interface.tex +++ b/src/docs/internals/interface.tex @@ -3,4 +3,4 @@ \section{Error Message Utilities} \section{Source Paths} - +\label{source-paths} ----------------------------------------------------------------------- Summary of changes: src/docs/internals/interface.tex | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-4-ge7d0e70
by Raymond Toy 04 Jan '13

04 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via e7d0e7008ecd1eab4f1274a3db8e2812a6b59014 (commit) from 1dc1c331381ecd8241532c165f8bac88a3abd6b8 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit e7d0e7008ecd1eab4f1274a3db8e2812a6b59014 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Jan 4 09:24:49 2013 -0800 Update rules for pdf and dvi to run latex enough times. Taken from cmu-user/Makefile. diff --git a/src/docs/internals/Makefile b/src/docs/internals/Makefile index d68c4cc..bbb389b 100644 --- a/src/docs/internals/Makefile +++ b/src/docs/internals/Makefile @@ -41,12 +41,21 @@ firsttime: $(MASTERFILE).dvi %.dvi : %.tex + $(LATEX) $< + @while ( grep Rerun $*.log > /dev/null ); do \ + $(LATEX) $<; \ + done + $(LATEX) $< %.eps : %.fig fig2dev -L ps $^ $@ %.pdf : %.tex $(PDFLATEX) $^ + @while ( grep -v 'Package: rerunfilecheck' $*.log | grep Rerun > /dev/null ); do \ + $(PDFLATEX) $<; \ + done + $(PDFLATEX) $< %.ps : %.dvi $(DVIPS) $(DVIPSOPTS) -o $@ $* ----------------------------------------------------------------------- Summary of changes: src/docs/internals/Makefile | 9 +++++++++ 1 files changed, 9 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-3-g1dc1c33
by Raymond Toy 04 Jan '13

04 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 1dc1c331381ecd8241532c165f8bac88a3abd6b8 (commit) from f0707af1619d8e5a2f44e8a8dc00a602f2020254 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 1dc1c331381ecd8241532c165f8bac88a3abd6b8 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jan 3 20:18:53 2013 -0800 o Don't delete gif files because some are checked in. (Fix this in a better way.) o Don't infloop when creating cmu-user.pdf by skipping over the version message from rerunfilecheck before checking for Rerun messages. diff --git a/src/docs/cmu-user/Makefile b/src/docs/cmu-user/Makefile index defc4a5..4a3e345 100644 --- a/src/docs/cmu-user/Makefile +++ b/src/docs/cmu-user/Makefile @@ -62,7 +62,7 @@ all: cmu-user.ps %.pdf : %.tex $(FILES) $(PDFLATEX) $< - @while ( grep Rerun $*.log > /dev/null ); do \ + @while ( grep -v 'Package: rerunfilecheck' $*.log | grep Rerun > /dev/null ); do \ $(PDFLATEX) $<; \ done if [ "$<" = "cmu-user.tex" ]; then $(MAKE) index; else $(MAKE) index-letter; fi @@ -102,7 +102,7 @@ cmu-user-letter.tex: cmu-user.tex clean: - rm -f *.log *.bbl *.blg *.ps *.pdf *.aux *.lof *.toc *.gif *.out *.ilg + rm -f *.log *.bbl *.blg *.ps *.pdf *.aux *.lof *.toc *.out *.ilg rm -f *.vdx *.cdx *.tdx *.fdx *.idx *.cnd *.fnd *.tnd *.vnd *.haux rm -f *.html *.hcnd *.htnd *.hvnd *.hfnd *.htoc ----------------------------------------------------------------------- Summary of changes: src/docs/cmu-user/Makefile | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-2-gf0707af
by Raymond Toy 03 Jan '13

03 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via f0707af1619d8e5a2f44e8a8dc00a602f2020254 (commit) via c5cacfc73a37cd18cce4f18a449202d4ace13d23 (commit) from bb144c9d0f653d19d32bb1a703b445a651cb131f (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit f0707af1619d8e5a2f44e8a8dc00a602f2020254 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 2 16:47:42 2013 -0800 Put back the chapter Retargeting the Compiler. The text is there, but the chapter heading was missing. diff --git a/src/docs/internals/retargeting.tex b/src/docs/internals/retargeting.tex index 9fa2c81..08399cc 100644 --- a/src/docs/internals/retargeting.tex +++ b/src/docs/internals/retargeting.tex @@ -1,5 +1,6 @@ \part{Compiler Retargeting} +\chapter{Retargeting the Compiler} [\#\#\# In general, it is a danger sign if a generator references a TN that isn't an commit c5cacfc73a37cd18cce4f18a449202d4ace13d23 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 2 16:45:52 2013 -0800 Remove duplicated definitions of list-all-external-formats and describe-external-formats in the documentation. diff --git a/src/docs/cmu-user/unicode.tex b/src/docs/cmu-user/unicode.tex index 921a40d..c6a1a98 100644 --- a/src/docs/cmu-user/unicode.tex +++ b/src/docs/cmu-user/unicode.tex @@ -615,18 +615,6 @@ utility functions are provided to make access easier. converting the octets. \end{defun} -\begin{defun}{}{list-all-external-formats}{} - \code{list-all-external-formats} produces a list of all known - external formats and the known aliases for for them. Each element - of the list is a list consisting of the name of the external format - and a list of the known aliases for the format. -\end{defun} - -\begin{defun}{}{describe-external-format}{\args \var{external-format}} - \code{describe-external-format} prints a description of the - specified external-format. -\end{defun} - \section{Writing External Formats} \subsection{External Formats} ----------------------------------------------------------------------- Summary of changes: src/docs/cmu-user/unicode.tex | 12 ------------ src/docs/internals/retargeting.tex | 1 + 2 files changed, 1 insertions(+), 12 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2013-01 created. snapshot-2013-01
by Raymond Toy 02 Jan '13

02 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The annotated tag, snapshot-2013-01 has been created at 6a6eb25de514a9ea0fdb75f0ad341060e7a0ea79 (tag) tagging bb144c9d0f653d19d32bb1a703b445a651cb131f (commit) replaces snapshot-2012-12 tagged by Raymond Toy on Wed Jan 2 10:46:45 2013 -0800 - Log ----------------------------------------------------------------- Snapshot 2013-01 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlDkgJ8ACgkQJ5IjUmgZO7I8GgCfZuVMcrH+6ZMxCvci95hA8pxR k/8AnitxBIL0qW3iKYPLV8pdwz3CmUJQ =FjVB -----END PGP SIGNATURE----- Raymond Toy (23): When emitter has holes, print out name of offending emitter. Print out name of offending emitter in some error messages. Updated from source code changes. Print out more info on specialization errors. Add source-location information for DEFINE-COMPILER-MACRO. Reinstate ability to compile with gcc on sparc. Fix ticket:60. Fix ticket:67 Fix bitrot in interrupt_maybe_gc. Fix ticket:68 by adding {{{BYTE-BASH-COPY}}} Use BYTE-BASH-COPY in the string transforms for SUBSEQ and COPY-SEQ. Get rid of the unused bit-bash-<foo> symbols. Move the alien callback support into its own files. Fix a few compiler notes. Regenerated. Regenerated from sparc port. Clean up: move byte-bash-copy near bit-bash-copy, and remove debugging Add :alien-callback to *faatures* for platforms that support it. Forgot to load c-callback and alien-callback in the appropriate Fix bitrot: support scavenging unicode strings.. Fix bitrot: set GC_SRC to gc.c if FEATURE_GENCGC is not defined. Update from commit logs. Micro-optimization for move-from-signed, eliminating one inst. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-23-gbb144c9
by Raymond Toy 02 Jan '13

02 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via bb144c9d0f653d19d32bb1a703b445a651cb131f (commit) from 78388799a95d5e551f776037eafeb2ef81a58acc (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit bb144c9d0f653d19d32bb1a703b445a651cb131f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 1 10:34:38 2013 -0800 Micro-optimization for move-from-signed, eliminating one inst. diff --git a/src/compiler/sparc/move.lisp b/src/compiler/sparc/move.lisp index 6ad7391..7b683b5 100644 --- a/src/compiler/sparc/move.lisp +++ b/src/compiler/sparc/move.lisp @@ -260,8 +260,7 @@ ;; Frode Vatvedt Fjeld: (zerop (logand #b110 (1+ temp))) (inst srln temp x positive-fixnum-bits) (inst add temp 1) - (inst and temp #b110) - (inst cmp temp) + (inst andcc temp #b110) (inst b :eq done) (inst slln y x fixnum-tag-bits) ----------------------------------------------------------------------- Summary of changes: src/compiler/sparc/move.lisp | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0