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

[Git][cmucl/cmucl][master] 6 commits: Restore hevea support for buliding cmu-user
by Raymond Toy 06 Mar '18

06 Mar '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: e3c4759d by Philip Fominykh at 2018-02-13T00:20:33-05:00 Restore hevea support for buliding cmu-user - - - - - 3be1f5ba by Philip Fominykh at 2018-02-13T00:22:15-05:00 Improved function signature rendering in cmu-user html version - - - - - ccd159f1 by Philip Fominykh at 2018-03-05T00:59:37-05:00 Remove extra paragraph generation in Hevea definitions. Added argument #5 to \layout to act as prelude. Putting index and spacing commands there eliminates extra paragraph. - - - - - 7b9be9a8 by Philip Fominykh at 2018-03-05T01:01:53-05:00 Hevea cmu-user generation cleanups. - - - - - 9b55c3e4 by Philip Fominykh at 2018-03-05T01:03:02-05:00 Merge branch 'master' into pfominykh-cmu-user-fixes - - - - - efc3d8c5 by Raymond Toy at 2018-03-06T04:18:37+00:00 Merge branch 'pfominykh-cmu-user-fixes' into 'master' Restore hevea support for cmu-user See merge request cmucl/cmucl!35 - - - - - 10 changed files: - src/docs/cmu-user/Makefile - src/docs/cmu-user/aliens.tex - src/docs/cmu-user/cmu-user.hva - src/docs/cmu-user/cmucl.css - src/docs/cmu-user/cross-referencing.tex - src/docs/cmu-user/debugger.tex - src/docs/cmu-user/extensions.tex - src/docs/cmu-user/introduction.tex - src/docs/cmu-user/ipc.tex - src/docs/cmu-user/unicode.tex Changes: ===================================== src/docs/cmu-user/Makefile ===================================== --- a/src/docs/cmu-user/Makefile +++ b/src/docs/cmu-user/Makefile @@ -70,7 +70,7 @@ all: cmu-user.pdf # the "-fix" option to hevea makes it run as many times as necessary # to resolve all cross-references and generate an index. -%.html : %.tex $(FILES) +%.html : %.tex $(FILES) cmu-user.hva $(HEVEA) -fix cmu-user.hva $< $(HACHA) -tocbis $@ -$(TIDY) -m *.html @@ -105,6 +105,7 @@ clean: 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 + rm -f cmu-user.css index: makeindex cmu-user.tdx -o cmu-user.tnd ===================================== src/docs/cmu-user/aliens.tex ===================================== --- a/src/docs/cmu-user/aliens.tex +++ b/src/docs/cmu-user/aliens.tex @@ -295,7 +295,7 @@ This section describes the basic operations on Alien values. \subsection{Alien Access Operations} -\begin{defun}{alien:}{deref}{\args{\var{pointer-or-array} \amprest \var{indices}}} +\begin{defun}{alien:}{deref}{\args{\var{pointer-or-array} \amprest{} \var{indices}}} This function returns the value pointed to by an Alien pointer or the value of an Alien array element. If a pointer, an optional @@ -766,7 +766,7 @@ and two return values (\var{a} and \var{i}). macro: \begin{defmac}{alien:}{def-callback}{\var{name} (\var{return-type} - \mstar{(arg-name arg-type)}) \ampbody\ body} + \mstar{(arg-name arg-type)}) \ampbody{} \var{body}} This macro defines a Lisp function that can be called from C and a Lisp variable. The arguments to the function must be alien types, and the return type must also be an alien type. This Lisp function @@ -789,7 +789,7 @@ macro: \code{def-callback} macro. \end{defmac} -\begin{defmac}{alien:}{callback-funcall}{\var{callback-name} \amprest +\begin{defmac}{alien:}{callback-funcall}{\var{callback-name} \amprest{} \var{args}} This macro does the necessary stuff to call the callback named \var{callback-name} with the given arguments. ===================================== src/docs/cmu-user/cmu-user.hva ===================================== --- a/src/docs/cmu-user/cmu-user.hva +++ b/src/docs/cmu-user/cmu-user.hva @@ -4,18 +4,24 @@ % to HTML using Hevea. By Luc Maranget and Eric Marsden. \newif\ifhmode\hmodefalse -\newcommand{\xspace}{} +\newcommand{\pdfinfo}[1]{\@print{}} \let\hbox\mbox \def\hfil{} \def\hfill{} \newcommand{\parbox}[3][]{\mbox{#3}} \newcommand{\lengthtest}[1]{true} \newenvironment{minipage}[2][]{}{} -\newcommand{\layout}[4][] - {\@open{DIV}{align=left} +\newcommand{\layout}[5][] + {\@open{DIV}{align=left}#5% [#4] \\ + \begin{tabbing} \fcnname{#1}\fcnname{#2} #3 \@print{   } + \end{tabbing} \@close{DIV}} +\newcommand{\keys}[1]{\code{\&key}\@print{ }\= #1} + +\renewcommand{\textgreater}{\@print{>}} +\renewcommand{\textless}{\@print{<}} % \newcommand{\layout}[4][] % {\begin{tabular} @@ -26,13 +32,12 @@ % \end{tabular}} -\newcommand{\fcntype}[1]{\@open{TT}{class=function-type}#1\@close{TT}} -\newcommand{\argtype}[1]{\@open{TT}{class=argument-type}#1\@close{TT}} -\newcommand{\fcnname}[1]{\@open{TT}{class=function-name}#1\@close{TT}} -\newcommand{\var}[1]{\@open{TT}{class=variable}#1\@close{TT}} -\newcommand{\code}[1]{\@open{TT}{class=code}#1\@close{TT}} -\newcommand{\file}[1]{\@open{TT}{class=filename}#1\@close{TT}} - +\newcommand{\fcntype}[1]{\@styleattr{TT}{class=function-type}#1\@clearstyle} +\newcommand{\argtype}[1]{\@styleattr{TT}{class=argument-type}#1\@clearstyle} +\newcommand{\fcnname}[1]{\@styleattr{TT}{class=function-name}#1\@clearstyle} +\newcommand{\var}[1]{\@styleattr{TT}{class=variable}#1\@clearstyle} +\newcommand{\code}[1]{\@styleattr{TT}{class=code}#1\@clearstyle} +\newcommand{\file}[1]{\@styleattr{TT}{class=filename}#1\@clearstyle} %% Define a new type %% @@ -40,40 +45,40 @@ %% some description %% \end{deftp} \newenvironment{deftp}[3] - {\par\bigskip\index[types]{#2|textbf}% - \layout{#2}{\var{#3}}{#1} + {\layout{#2}{\var{#3}}{#1}% + {\bigskip\index[types]{#2|textbf}} \begin{quote}} {\end{quote}} %% Define a function %% -%% \begin{defun}{pkg}{name}{params} +%% \begin{defun}[suffix]{pkg}{name}{params} %% \defunx[pkg]{name}{params} %% description of function %% \end{defun} -\newenvironment{defun}[3] - {\par\defunvspace\fnindexbold{#2}\label{FN:#2}% - \layout[#1]{#2}{#3}{Function} +\newenvironment{defun}[4][] + {\layout[#2]{#3}{#4}{Function}% + {\defunvspace\fnindexbold{#3}\label{FN:#3#1}} \begin{quote}} {\end{quote}} \newcommand{\defunx}[3][\mbox{}]{% - \par\fnindexbold{#2}\label{FN:#2}% - \layout[#1]{#2}{#3}{Function}} + \layout[#1]{#2}{#3}{Function}% + {\fnindexbold{#2}\label{FN:#2}}} %% Define a macro %% -%% \begin{defmac}{pkg}{name}{params} +%% \begin{defmac}[suffix]{pkg}{name}{params} %% \defmacx[pkg]{name}{params} %% description of macro %% \end{defmac} -\newenvironment{defmac}[3]{% - \par\defunvspace\fnindexbold{#2}\label{FN:#2}% - \layout[#1]{#2}{#3}{Macro} +\newenvironment{defmac}[4][]{% + \layout[#2]{#3}{#4}{Macro}% + {\defunvspace\fnindexbold{#3}\label{FN:#3#1}} \begin{quote}} {\end{quote}} \newcommand{\defmacx}[3][\mbox{}]{% - \par\fnindexbold{#2}\label{FN:#2}% - \layout[#1]{#2}{#3}{Function}} + \layout[#1]{#2}{#3}{Function}% + {\fnindexbold{#2}\label{FN:#2}}} %% Define a variable %% @@ -82,13 +87,13 @@ %% description of defvar %% \end{defvar} \newenvironment{defvar}[2]{% - \par\defunvspace\vrindexbold{#2}\label{VR:#2} - \layout[#1]{*#2*}{}{Variable} + \layout[#1]{*#2*}{}{Variable}% + {\defunvspace\vrindexbold{#2}\label{VR:#2}} \begin{quote}} {\end{quote}} \newcommand{\defvarx}[2][\mbox{}]{% - \par\vrindexbold{#2}\label{VR:#2} - \layout[#1]{*#2*}{}{Variable}} + \layout[#1]{*#2*}{}{Variable}% + {\vrindexbold{#2}\label{VR:#2}}} %% Define a constant %% @@ -97,11 +102,12 @@ %% description of defconst %% \end{defconst} \newenvironment{defconst}[2]{% - \defunvspace\defconstx[#1]{#2} + \layout[#1]{#2}{}{Constant}% + {\defunvspace} \begin{quote}} {\end{quote}} \newcommand{\defconstx}[2][\mbox{}]{% - \layout[#1]{#2}{}{Constant}} + \layout[#1]{#2}{}{Constant}{}} @@ -110,10 +116,10 @@ {\@open{BLOCKQUOTE}{class=example}\begin{alltt}} {\end{alltt}\@close{BLOCKQUOTE}} \newenvironment{lisp} - {\@open{BLOCKQUOTE}{CLASS=lisp} \begin{alltt}} + {\@open{BLOCKQUOTE}{CLASS=lisp}\begin{alltt}} {\end{alltt}\@close{BLOCKQUOTE}} -\newcommand{\cmucl}{CMUCL} - +\newcommand{\cmucl}{{\scshape cmucl}} + % there are no page numbers in HTML, so we need to override certain % cross-referencing macros @@ -134,7 +140,7 @@ % disable ``this document generated by'' footer -\setcounter{footer}{0} +\def\@footer{} % \htmlhead{\@print{ % <a href="../../">CMUCL</a> -&gt @@ -165,12 +171,19 @@ \setcounter{cuttingdepth}{10} \input{report.hva} -\input{fancysection.hva} +%%\input{fancysection.hva} +\usepackage{color} \definecolor{chapter}{rgb}{1, 1, 0.74} \definecolor{part}{rgb}{1, 1, 0.81} \definecolor{section}{rgb}{1, 1, 0.83} \definecolor{subsection}{rgb}{1, 1, 0.89} \definecolor{subsubsection}{rgb}{1, 1, 0.93} +\newstyle{.chapter}{padding:0.5ex;background-color:\@getstylecolor{chapter}} +\newstyle{.section} {padding:.5ex;background-color:\@getstylecolor{section}}% +\newstyle{.subsection} {padding:0.3ex;background-color:\@getstylecolor{subsection}}% +\newstyle{.subsubsection} {padding:0.5ex;background-color:\@getstylecolor{subsubsection}}% +\newstyle{.paragraph} {padding:0.5ex;background-color:\@getstylecolor{paragraph}}% \renewcommand{\@bodyargs}{} + % EOF ===================================== src/docs/cmu-user/cmucl.css ===================================== --- a/src/docs/cmu-user/cmucl.css +++ b/src/docs/cmu-user/cmucl.css @@ -35,7 +35,7 @@ h3 { .code { background: #faf0e6; border:solid #faf0e6 1px; - white-space:pre; + white-space:pre-line; } .technical { ===================================== src/docs/cmu-user/cross-referencing.tex ===================================== --- a/src/docs/cmu-user/cross-referencing.tex +++ b/src/docs/cmu-user/cross-referencing.tex @@ -142,7 +142,7 @@ source file), and so is identified by the XREF facility by a string. \end{defun} -\begin{defun}{xref:}{xref-context-file}{context} +\begin{defun}{xref:}{xref-context-file}{\var{context}} Return the truename (in the sense of the variable \vindexed{compile-file-truename}) of the source file from which the referencing forms were compiled. This slot will be \nil{} if the @@ -150,7 +150,7 @@ source file), and so is identified by the XREF facility by a string. listener. \end{defun} -\begin{defun}{xref:}{xref-context-source-path}{context} +\begin{defun}{xref:}{xref-context-source-path}{\var{context}} Return a list of positive integers identifying the form that contains the cross-reference. The first integer in the source-path is the number of the top-level form containing the cross-reference ===================================== src/docs/cmu-user/debugger.tex ===================================== --- a/src/docs/cmu-user/debugger.tex +++ b/src/docs/cmu-user/debugger.tex @@ -998,8 +998,7 @@ printing of the trace information and conditional breakpoints on function entry or exit. \begin{defmac}{}{trace}{% - \args{\mstar{option global-value} \mstar{name \mstar{option - value}}}} + \args{\mstar{option global-value} \mstar{name \mstar{option value}}}} \code{trace} is a debugging tool that prints information when specified functions are called. In its simplest form: ===================================== src/docs/cmu-user/extensions.tex ===================================== --- a/src/docs/cmu-user/extensions.tex +++ b/src/docs/cmu-user/extensions.tex @@ -162,9 +162,7 @@ IEEE floating point specifies four possible rounding modes: \findexed{truncate} function. \end{Lentry} -\paragraph{Warning:} - -Although the rounding mode can be changed with +Warning: Although the rounding mode can be changed with \code{set-floating-point-modes}, use of any value other than the default (\kwd{nearest}) can cause unusual behavior, since it will affect rounding done by \llisp{} system code as well as rounding in @@ -267,7 +265,7 @@ These functions can be used to modify or read the floating point modes: To make handling control of floating-point exceptions, the following macro is useful. -\begin{defmac}{ext:}{with-float-traps-masked}{traps \ampbody\ body} +\begin{defmac}{ext:}{with-float-traps-masked}{\var{traps} \ampbody\ \var{body}} \code{body} is executed with the selected floating-point exceptions given by \code{traps} masked out (disabled). \code{traps} should be a list of possible floating-point exceptions that should be ignored. @@ -839,7 +837,7 @@ finalization is used to close the underlying file descriptor. \section{Describe} -\begin{defun}{}{describe}{ \args{\var{object} \&optional{} \var{stream}}} +\begin{defun}{}{describe}{ \args{\var{object} \ampoptional{} \var{stream}}} The \code{describe} function prints useful information about \var{object} on \var{stream}, which defaults to @@ -1947,7 +1945,8 @@ way to browse the library. \section{Generalized Function Names} -\begin{defmac}{ext:}{define-function-name-syntax}{name (var) \ampbody\ body} +\begin{defmac}{ext:}{define-function-name-syntax}{% + \var{name} (\var{var}) \ampbody\ \var{body}} Define lists starting with the symbol \code{name} as a new extended function name syntax. @@ -1969,7 +1968,7 @@ way to browse the library. user-defined package. \end{defmac} -\begin{defun}{ext:}{valid-function-name-p}{name} +\begin{defun}{ext:}{valid-function-name-p}{\var{name}} Returns two values: \begin{itemize} @@ -1999,7 +1998,7 @@ function is called and standardized method combinations like \code{progn}, \code{and}, etc. \end{itemize} -\begin{defgeneric}[-generic]{pcl:}{no-primary-method}{gf \&rest args} +\begin{defgeneric}[-generic]{pcl:}{no-primary-method}{\var{gf} \amprest{} \var{args}} In \cmucl, this generic function is called in the above erroneous cases. The parameter \code{gf} is the generic function being called, and \code{args} is a list of actual arguments in the generic @@ -2007,7 +2006,7 @@ function is called and \end{defgeneric} \begin{defmethod}[-standard]{pcl:}{no-primary-method}{% - (gf standard-generic-function) \&rest args} + (\var{gf} \argtype{standard-generic-function}) \amprest{} \var{args}} This method signals a continuable error of type \code{pcl:no-primary-method-error}. \end{defmethod} @@ -2292,7 +2291,7 @@ methods, as it would be the case when a function is inlined somewhere else. Because of this, the function \code{pcl:flush-emf-cache} is provided for forcing such an update of effective methods. -\begin{defun}{pcl:}{flush-emf-cache}{\&optional gf} +\begin{defun}{pcl:}{flush-emf-cache}{\ampoptional{} \var{gf}} Flush cached effective method functions. If \code{gf} is supplied, it should be a generic function metaobject or the name of a generic function, and this function flushes all cached effective methods for @@ -2341,7 +2340,7 @@ when the generic function is called depending on the value of Support for sealing classes and generic functions have been implemented. Please note that this interface is subject to change. -\begin{defmac}{pcl:}{seal}{name (var) \amprest\ specifiers} +\begin{defmac}{pcl:}{seal}{\var{name} (\var{var}) \amprest{} \var{specifiers}} Seal \code{name} with respect to the given specifiers; \code{name} can be the name of a class or generic-function. @@ -2352,7 +2351,7 @@ implemented. Please note that this interface is subject to change. Sealing violations signal an error of type \code{pcl:sealed-error}. \end{defmac} -\begin{defun}{pcl:}{unseal}{name-or-object} +\begin{defun}{pcl:}{unseal}{\var{name-or-object}} Remove seals from \code{name-or-object}. \end{defun} @@ -2438,8 +2437,8 @@ extensions. \subsection{Extensions} -\begin{defun}{}{constantly}{value \&optional val1 val2 \&rest - more-values} +\begin{defun}{}{constantly}{% + \var{value} \ampoptional{} \var{val1} \var{val2} \amprest{} \var{more-values}} As an extension, \cmucl{} allows \code{constantly} to accept more than one value which are returned as multiple values. \end{defun} @@ -2502,7 +2501,7 @@ innermost fwrapper object. Likewise, if a function is fwrapped, \code{(setf fdefinition)} will set the primary function in the innermost fwrapper. -\begin{defmac}{fwrappers:}{define-fwrapper}{name lambda-list \ampbody{} body} +\begin{defmac}{fwrappers:}{define-fwrapper}{\var{name} \var{lambda-list} \ampbody{} \var{body}} This macro is like \code{defun}, but defines a function named \var{name} that can be used as an fwrapper definition. @@ -2518,8 +2517,8 @@ innermost fwrapper. arguments. \end{defmac} -\begin{defun}{fwrappers:}{fwrap}{function-name fwrapper \&key type - user-data} +\begin{defun}{fwrappers:}{fwrap}{\var{function-name} \var{fwrapper} % + \keys{\kwd{type} \kwd{user-data}}} This function wraps function \code{function-name} in an fwrapper \var{fwrapper} which was defined with \code{define-fwrapper}. @@ -2534,58 +2533,58 @@ innermost fwrapper. Value is the fwrapper object created. \end{defun} -\begin{defun}{fwrappers:}{funwrap}{function-name \&key type test} +\begin{defun}{fwrappers:}{funwrap}{\var{function-name} \keys{\kwd{type} \kwd{test}}} Remove fwrappers from the function named \var{function-name}. If \var{type} is supplied, remove fwrappers whose type is \code{equal} to \var{type}. If \var{test} is supplied, remove fwrappers satisfying \var{test}. \end{defun} -\begin{defun}{fwrappers:}{find-fwrapper}{function-name \&key type test} +\begin{defun}{fwrappers:}{find-fwrapper}{\var{function-name} \keys{\kwd{type} \kwd{test}}} Find an fwrapper of \var{function-name}. If \var{type} is supplied, find an fwrapper whose type is \code{equal} to \var{type}. If \var{test} is supplied, find an fwrapper satisfying \var{test}. \end{defun} -\begin{defun}{fwrappers:}{update-fwrapper}{fwrapper} +\begin{defun}{fwrappers:}{update-fwrapper}{\var{fwrapper}} Update the funcallable instance function of the fwrapper object \var{fwrapper} from the definition of its function that was defined with \code{define-fwrapper}. This can be used to update fwrappers after changing a \code{define-fwrapper}. \end{defun} -\begin{defun}{fwrappers:}{update-fwrappers}{function-name \&key type test} +\begin{defun}{fwrappers:}{update-fwrappers}{\var{function-name} \keys{\kwd{type} \kwd{test}}} Update fwrappers of \var{function-name}; see \code{update-fwrapper}. If \var{type} is supplied, update fwrappers whose type is \code{equal} to \var{type}. If \var{test} is supplied, update fwrappers satisfying \var{test}. \end{defun} -\begin{defun}{fwrappers:}{set-fwrappers}{function-name fwrappers} +\begin{defun}{fwrappers:}{set-fwrappers}{\var{function-name} \var{fwrappers}} Set \var{function-names}'s fwrappers to elements of the list \var{fwrappers}, which is assumed to be ordered from outermost to innermost. \var{fwrappers} null means remove all fwrappers. \end{defun} -\begin{defun}{fwrappers:}{list-fwrappers}{function-name} +\begin{defun}{fwrappers:}{list-fwrappers}{\var{function-name}} Return a list of all fwrappers of \var{function-name}, ordered from outermost to innermost. \end{defun} -\begin{defun}{fwrappers:}{push-fwrapper}{fwrapper function-name} +\begin{defun}{fwrappers:}{push-fwrapper}{\var{fwrapper} \var{function-name}} Prepend fwrapper \var{fwrapper} to the definition of \var{function-name}. Signal an error if \var{function-name} is an undefined function. \end{defun} -\begin{defun}{fwrappers:}{delete-fwrapper}{fwrapper function-name} +\begin{defun}{fwrappers:}{delete-fwrapper}{\var{fwrapper} \var{function-name}} Remove fwrapper \var{fwrapper} from the definition of \var{function-name}. Signal an error if \var{function-name} is an undefined function. \end{defun} -\begin{defmac}{fwrappers:}{do-fwrappers}{(var fdefn \ampoptional{} - result) \ampbody{} body} +\begin{defmac}{fwrappers:}{do-fwrappers}{(\var{var} \var{fdefn} \ampoptional{} + \var{result}) \ampbody{} \var{body}} Evaluate \var{body} with \var{var} bound to consecutive fwrappers of \var{fdefn}. Return \var{result} at the end. Note that \var{fdefn} must be an \code{fdefn} object. You can use @@ -2772,18 +2771,18 @@ that order. beginning of this list. \end{defvar} -\begin{defmac}{ext:}{defmodule}{name \amprest{} files} +\begin{defmac}{ext:}{defmodule}{\var{name} \amprest{} \var{files}} Defines a module by registering the files that need to be loaded when the module is required. If \var{name} is a symbol, its print name is used after downcasing it. \end{defmac} -\begin{defun}{ext:}{module-provide-cmucl-defmodule}{module-name} +\begin{defun}{ext:}{module-provide-cmucl-defmodule}{\var{module-name}} This function is the module-provider for modules registered by a \code{ext:defmodule} form. \end{defun} -\begin{defun}{ext:}{module-provide-cmucl-library}{module-name} +\begin{defun}{ext:}{module-provide-cmucl-library}{\var{module-name}} This function is the module-provider for \cmucl's libraries, including Gray streams, simple streams, CLX, CLM, Hemlock, \emph{etc}. @@ -2830,7 +2829,7 @@ recording of strings, call \code{intl:translation-enable}. Disablle recording of translatable strings. \end{defun} -\begin{defun}{intl:}{setlocale}{\ampoptional{} locale} +\begin{defun}{intl:}{setlocale}{\ampoptional{} \var{locale}} Sets the locale to the locale specified by \var{locale}. If \var{locale} is not give or is \nil, the locale is determined by look at the environment variables \code{LANGUAGE}, \code{LC\_ALL}, @@ -2840,19 +2839,19 @@ recording of strings, call \code{intl:translation-enable}. The default locale is ``C''. \end{defun} -\begin{defun}{intl:}{textdomain}{domain} +\begin{defun}{intl:}{textdomain}{\var{domain}} Set the default domain to the domain specified by \var{domain}. Typically, this only needs to be done at the top of each source file. This is used to \code{gettext} and \code{ngettext} to set the domain for the message string. \end{defun} -\begin{defmac}{intl:}{gettext}{string} +\begin{defmac}{intl:}{gettext}{\var{string}} Look up the specified string, \var{string}, in the current message domain and return its translation. \end{defmac} -\begin{defun}{intl:}{dgettext}{domain string} +\begin{defun}{intl:}{dgettext}{\var{domain} \var{string}} Look up the specified string, \var{string}, in the message domain, \var{domain}. The translation is returned. @@ -2861,14 +2860,14 @@ recording of strings, call \code{intl:translation-enable}. \code{intl::dump-pot-files}.) \end{defun} -\begin{defmac}{intl:}{ngettext}{singular plural n} +\begin{defmac}{intl:}{ngettext}{\var{singular} \var{plural} \var{n}} Look up the singular or plural form of a message in the default domain. The singular form is \var{singular}; the plural is \var{plural}. The number of items is specified by \var{n} in case the correct translation depends on the actual number of items. \end{defmac} -\begin{defun}{intl:}{dngettext}{domain singular plural n} +\begin{defun}{intl:}{dngettext}{\var{domain} \var{singular} \var{plural} \var{n}} Look up the singular or plural form of a message in the specified domain, \var{domain}. The singular form is \var{singular}; the plural is \var{plural}. The number of items is specified by \var{n} @@ -2880,8 +2879,7 @@ recording of strings, call \code{intl:translation-enable}. created. (See \code{intl::dump-pot-files}.) \end{defun} -\begin{defun}{intl::}{dump-pot-files}{\keys copyright - output-directory} +\begin{defun}{intl::}{dump-pot-files}{\keys{\kwd{copyright} \kwd{output-directory}}} Dumps the translatable strings recorded by \code{dgettext} and \code{dngettext}. The message template file (pot file) is written to a file in the directory specified by \var{output-directory}, and @@ -2895,7 +2893,7 @@ recording of strings, call \code{intl:translation-enable}. This is a list of directory pathnames where the translations can be found. \end{defvar} -\begin{defun}{intl:}{install}{\ampoptional{} (rt *readtable*)} +\begin{defun}{intl:}{install}{\ampoptional{} (\var{rt} \var{*readtable*})} Installs reader macros and comment reader into the specified readtable as explained below. The readtable defaults to \var{*readtable*}. ===================================== src/docs/cmu-user/introduction.tex ===================================== --- a/src/docs/cmu-user/introduction.tex +++ b/src/docs/cmu-user/introduction.tex @@ -80,7 +80,7 @@ See also \verb|cmucl(1)|. Currently \cmucl{} accepts the following switches: \begin{Lentry} -\item[\code{--help}] Same as \code{-help}. +\item[\code{-{}-help}] Same as \code{-help}. \item[\code{-help}] Print ou the command line options and exit. ===================================== src/docs/cmu-user/ipc.tex ===================================== --- a/src/docs/cmu-user/ipc.tex +++ b/src/docs/cmu-user/ipc.tex @@ -161,7 +161,7 @@ could use \code{prin1-to-string} locally, send the string, and use \end{defmac} \begin{defmac}{wire:}{remote-value-bind}{% - \args{\var{wire} (\mstar{variable}) remote-form + \args{\var{wire} (\mstar{variable}) \var{remote-form} \mstar{local-forms}}} \code{remote-value-bind} is similar to \code{multiple-value-bind} ===================================== src/docs/cmu-user/unicode.tex ===================================== --- a/src/docs/cmu-user/unicode.tex +++ b/src/docs/cmu-user/unicode.tex @@ -348,10 +348,10 @@ this encoding and handle the surrogate pairs correctly. \begin{defun}{}{string=}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} \defunx{string/=}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} - \defunx{string$<$}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} - \defunx{string$>$}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} - \defunx{string$<$=}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} - \defunx{string$>$=}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} + \defunx{string\textless}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} + \defunx{string\textgreater}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} + \defunx{string\textless=}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} + \defunx{string\textgreater=}{\args \var{s1} \var{s2} \keys{\kwd{start1} \kwd{end1} \kwd{start2} \kwd{end2}}} The string comparison is done in codepoint order. (This is different from just comparing the order of the individual characters due to surrogate pairs.) Unicode collation is not done. @@ -443,7 +443,7 @@ The Unicode data base is stored in compressed form in the file \file{ext-formats:unidata.bin}. If this file is not found, Unicode support is severely reduced; you can only use ASCII characters. -\begin{defun}{}{open}{\args \var{filename} \amprest \var{options} +\begin{defun}{}{open}{\args \var{filename} \amprest{} \var{options} \keys{\kwd{direction} \kwd{element-type} \kwd{if-exists} \kwd{if-does-not-exist} \morekeys \kwd{class} \kwd{mapped} \kwd{input-handle} \kwd{output-handle} @@ -497,7 +497,7 @@ support is severely reduced; you can only use ASCII characters. formats and composing external formats. \end{defun} -\begin{defun}{extensions:}{describe-external-format}{external-format} +\begin{defun}{extensions:}{describe-external-format}{\var{external-format}} Print a description of the given \var{external-format}. This may cause the external format to be loaded (silently) if it is not already loaded. @@ -627,12 +627,12 @@ An external format basically needs two functions: external format is defined using the macro \code{stream::define-external-format}. -\begin{defmac}[base]{stream:}{define-external-format}{\args \var{name} - (\keys{\var{base} \var{min} \var{max} \var{size} - \var{documentation}}) +% tricky +\begin{defmac}[base]{stream::}{define-external-format}{\args \var{name} + (\keys{\kwd{base} \kwd{min} \kwd{max} \kwd{size} \kwd{documentation}}) (\amprest{} \var{slots}) - \morekeys{\var{octets-to-code} \var{code-to-octets} - \var{flush-state} \var{copy-state}}} + \\ + \= \ampoptional{} \var{octets-to-code} \var{code-to-octets} \var{flush-state} \var{copy-state}} If \kwd{base} is not given, this defines a new external format of @@ -726,7 +726,7 @@ external format is defined using the macro \subsection{Composing External Formats} \begin{defmac}{stream:}{define-composing-external-format}{\args \var{name} - (\keys{\var{min} \var{max} \var{size} \var{documentation}}) \var{input} + (\keys{\kwd{min} \kwd{max} \kwd{size} \kwd{documentation}}) \var{input} \var{output}} This is the same as \code{define-external-format}, except that a composing external format is created. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/52a93a052ba57908d3086146… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/52a93a052ba57908d3086146… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Use the 2018-03 snapshots for testing.
by Raymond Toy 03 Mar '18

03 Mar '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 52a93a05 by Raymond Toy at 2018-03-03T14:30:47-08:00 Use the 2018-03 snapshots for testing. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -1,6 +1,6 @@ variables: - download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01" - version: "2018-01-x86" + download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2018/03" + version: "2018-03-x86" linux-runner: tags: @@ -12,7 +12,7 @@ linux-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2) script: - - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp + - bin/build.sh -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist linux-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log @@ -24,6 +24,6 @@ osx-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2) script: - - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp + - bin/build.sh -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist darwin-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/52a93a052ba57908d30861466… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/52a93a052ba57908d30861466… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Remove test files from tests
by Raymond Toy 03 Mar '18

03 Mar '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 3c56ed8c by Raymond Toy at 2018-03-03T14:28:53-08:00 Remove test files from tests The tests create some files in /tmp. Remove them when the test script ends so that we get a clean directory. I think this fixes the issue with the osx-runner sometimes failing because it can't remove the temp files that I created locally when testing locally. - - - - - 1 changed file: - bin/run-tests.sh Changes: ===================================== bin/run-tests.sh ===================================== --- a/bin/run-tests.sh +++ b/bin/run-tests.sh @@ -34,12 +34,19 @@ done # Shift out the options shift $[$OPTIND - 1] -# Create the test directory needed issue.45 test. - +# Create the test directory needed by the issue.45 test. rm -rf test-tmp mkdir test-tmp ln -s /bin/ls test-tmp/ls-link +# Cleanup temp files and directories that we created during testing. +function cleanup { + rm -f /tmp/trac.36.bom.txt /tmp/trac.43.txt + rm -rf /tmp/foo +} + +trap cleanup EXIT + if [ $# -eq 0 ]; then # No args so run all the tests $LISP -noinit -load tests/run-tests.lisp -eval '(cmucl-test-runner:run-all-tests)' View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/3c56ed8c550e509b3f080e531… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/3c56ed8c550e509b3f080e531… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2018-03
by Raymond Toy 03 Mar '18

03 Mar '18

Raymond Toy pushed new tag snapshot-2018-03 at cmucl / cmucl --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/tree/snapshot-2018-03 You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Complex array accessors are not foldable
by Raymond Toy 19 Feb '18

19 Feb '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: e9a598e5 by Raymond Toy at 2018-02-19T08:41:07-08:00 Complex array accessors are not foldable Fixes #61 and #62. The `ARRAY-HAS-FILL-POINTER-P` and `ARRAY-DISPLACEMENT` functions are declared inline and the compiler tries to constant-fold these inlined functions operating on simple arrays. Thus don't allow the compiler to constant-fold calls to `%ARRAY-FILL-POINTER-P`. This is normally protected by a call to `ARRAY-HEADER-P`, but when it's inlined, the compiler tries to constant-fold `%ARRAY-FILL-POINTER-P` on an array without such a slot. Likewise `ARRAY-DISPLACEMENT` calls `%ARRAY-DISPLACED-P`, `%ARRAY-DATA-VECTOR`, and `%ARRAY-DISPLACEMENT`, and the calls are protected by `ARRAY-HEADER-P`. So don't constant-fold these either. Maybe we could also make CONSTANT-FOLD-CALL be smarter about this? * src/compiler/generic/objdef.lisp * Remove flushable from these ref-trans methods. * src/general-info/release-21d.md * Update * tests/issues.lisp * Add tests from the bug reports. - - - - - ac4b9fc8 by Raymond Toy at 2018-02-19T16:50:47+00:00 Merge branch 'rtoy-fix-61-62-not-flushable' into 'master' Complex array accessors are not foldable Closes #61 and #62 See merge request cmucl/cmucl!38 - - - - - 3 changed files: - src/compiler/generic/objdef.lisp - src/general-info/release-21d.md - tests/issues.lisp Changes: ===================================== src/compiler/generic/objdef.lisp ===================================== --- a/src/compiler/generic/objdef.lisp +++ b/src/compiler/generic/objdef.lisp @@ -252,29 +252,32 @@ :ref-known (flushable foldable) :set-trans (setf %array-fill-pointer) :set-known (unsafe)) + ;; Don't let these ref-trans to be constant-folded because these + ;; might get called on arrays that don't have these slots. (Because + ;; the lisp functions might be inlined.) (fill-pointer-p :type (member t nil) :ref-trans %array-fill-pointer-p - :ref-known (flushable foldable) + :ref-known (flushable) :set-trans (setf %array-fill-pointer-p) :set-known (unsafe)) (elements :type index :ref-trans %array-available-elements - :ref-known (flushable foldable) + :ref-known (flushable) :set-trans (setf %array-available-elements) :set-known (unsafe)) (data :type array :ref-trans %array-data-vector - :ref-known (flushable foldable) + :ref-known (flushable) :set-trans (setf %array-data-vector) :set-known (unsafe)) (displacement :type (or index null) :ref-trans %array-displacement - :ref-known (flushable foldable) + :ref-known (flushable) :set-trans (setf %array-displacement) :set-known (unsafe)) (displaced-p :type (member t nil) :ref-trans %array-displaced-p - :ref-known (flushable foldable) + :ref-known (flushable) :set-trans (setf %array-displaced-p) :set-known (unsafe)) (dimensions :rest-p t)) ===================================== src/general-info/release-21d.md ===================================== --- a/src/general-info/release-21d.md +++ b/src/general-info/release-21d.md @@ -35,6 +35,8 @@ public domain. * ~~#59~~ Incorrect type-derivation for `decode-float` * ~~#60~~ The function `C::%UNARY-FROUND` is undefined * ~~#58~~ Bogus type error in comparison of complex number with `THE` form + * ~~#61~~ Segfault when compiling call to `ARRAY-HAS-FILL-POINTER-P` on bit vector constant + * ~~#62~~ Segfault when compiling `ARRAY-DISPLACEMENT` on a string constant * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== tests/issues.lisp ===================================== --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -521,3 +521,17 @@ (let ((c9 (compile nil #'(lambda (x) (= (the (eql 1.0d0) x) #c(1/2 1/2)))))) (assert-false (funcall c9 1.d0)))) + +(define-test issue.61 + (:tag :issues) + ;; Verifies that the compiler doesn't segfault and that we return + ;; the correct value. + (assert-false + (funcall (compile nil '(lambda () (array-has-fill-pointer-p #*10)))))) + +(define-test issue.62 + (:tag :issues) + ;; Verifies that the compiler doesn't segfault and that we return + ;; the correct value. + (assert-false + (funcall (compile nil '(lambda () (array-displacement "aaaaaaaa")))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/771fd903423d15380c445426… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/771fd903423d15380c445426… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-fix-61-62-not-flushable
by Raymond Toy 19 Feb '18

19 Feb '18

Raymond Toy pushed new branch rtoy-fix-61-62-not-flushable at cmucl / cmucl --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/tree/rtoy-fix-61-62-not-flushable You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #58: Bogus type error in comparison of complex number with `THE` form
by Raymond Toy 18 Feb '18

18 Feb '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: bccd6a98 by Raymond Toy at 2018-02-18T09:01:08-08:00 Fix #58: Bogus type error in comparison of complex number with `THE` form The deftransforms `upgraded-complex-real-contagion-arg1` and `upgraded-complex-real-contagion-arg2` were coercing the complex number to the exact type of the float number. Because of the `THE` form, the type of the float was `(member 1d0)`, so the compiler was coercing `#c(1/2 1/2)` to `(complex (double-float 1d0))`, which is wrong. Therefore, coerce the complex to just the type format of the real part, ignoring any bounds. * src/compiler/float-tran.lisp * Coerce to format type, discarding any bounds * src/general-info/release-21d.md * Update notes * tests/issues.lisp * Added test for this - - - - - 771fd903 by Raymond Toy at 2018-02-18T17:11:19+00:00 Merge branch 'rtoy-fix-issue-58' into 'master' Fix #58: Bogus type error in comparison of complex number with `THE` form Closes #58 See merge request cmucl/cmucl!37 - - - - - 3 changed files: - src/compiler/float-tran.lisp - src/general-info/release-21d.md - tests/issues.lisp Changes: ===================================== src/compiler/float-tran.lisp ===================================== --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -1903,7 +1903,7 @@ (deftransform upgraded-complex-real-contagion-arg1 ((x y) * * :defun-only t :node node) ;;(format t "upgraded-complex-real-contagion-arg1~%") `(,(continuation-function-name (basic-combination-fun node)) - (coerce x '(complex ,(type-specifier (continuation-type y)))) + (coerce x '(complex ,(numeric-type-format (continuation-type y)))) y)) ;;; (deftransform upgraded-complex-real-contagion-arg2 ((x y) * * :defun-only t :node node) @@ -1912,7 +1912,7 @@ (continuation-type x) (continuation-type y)) `(,(continuation-function-name (basic-combination-fun node)) x - (coerce y '(complex ,(type-specifier (continuation-type x)))))) + (coerce y '(complex ,(numeric-type-format (continuation-type x)))))) (dolist (x '(= + * / -)) ===================================== src/general-info/release-21d.md ===================================== --- a/src/general-info/release-21d.md +++ b/src/general-info/release-21d.md @@ -34,6 +34,7 @@ public domain. * ~~#47~~ Backquate and multiple splices * ~~#59~~ Incorrect type-derivation for `decode-float` * ~~#60~~ The function `C::%UNARY-FROUND` is undefined + * ~~#58~~ Bogus type error in comparison of complex number with `THE` form * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== tests/issues.lisp ===================================== --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -515,3 +515,9 @@ (assert-equalp (values 2d0 0d0) (funcall c14 2d0)))) + +(define-test issue.58 + (:tag :issues) + (let ((c9 (compile nil #'(lambda (x) + (= (the (eql 1.0d0) x) #c(1/2 1/2)))))) + (assert-false (funcall c9 1.d0)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/31c6bf9faef2ce24d42d5af0… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/31c6bf9faef2ce24d42d5af0… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-fix-issue-58
by Raymond Toy 18 Feb '18

18 Feb '18

Raymond Toy pushed new branch rtoy-fix-issue-58 at cmucl / cmucl --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/tree/rtoy-fix-issue-58 You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 3 commits: Fix #60: `C::%UNARY-FROUND` is undefined
by Raymond Toy 18 Feb '18

18 Feb '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 26e3ad82 by Raymond Toy at 2018-02-17T19:44:02-08:00 Fix #60: `C::%UNARY-FROUND` is undefined Remove the symbol `C::%UNARY-FROUND` and just let the compiler package inherit it from the kernel package. * src/bootfiles/21c/boot-2018-02-1.lisp * Use this to bootstrap the change (by uninterning the symbol) * src/code/float.lisp * Just export %unary-fround * src/general-info/release-21d.md * Update * tests/issues.lisp * Add test for this issue - - - - - 84d9a4bd by Raymond Toy at 2018-02-17T19:56:32-08:00 Oops. Need to build with the bootstrap file. - - - - - 31c6bf9f by Raymond Toy at 2018-02-18T15:30:51+00:00 Merge branch 'rtoy-fix-60-unary-fround-undefined' into 'master' Fix #60: unary fround undefined Closes #60 See merge request cmucl/cmucl!36 - - - - - 5 changed files: - .gitlab-ci.yml - + src/bootfiles/21c/boot-2018-02-1.lisp - src/code/float.lisp - src/general-info/release-21d.md - tests/issues.lisp Changes: ===================================== .gitlab-ci.yml ===================================== --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -12,7 +12,7 @@ linux-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2) script: - - bin/build.sh -C "" -o snapshot/bin/lisp + - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist linux-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log @@ -24,6 +24,6 @@ osx-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2) script: - - bin/build.sh -C "" -o snapshot/bin/lisp + - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist darwin-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log ===================================== src/bootfiles/21c/boot-2018-02-1.lisp ===================================== --- /dev/null +++ b/src/bootfiles/21c/boot-2018-02-1.lisp @@ -0,0 +1,5 @@ +;; Get rid of incorrect symbol c::%unary-fround and just inherit +;; %unary-fround from the kernel package. +(ext:without-package-locks + (unintern 'c::%unary-fround "C")) +(export 'kernel::%unary-fround "KERNEL") ===================================== src/code/float.lisp ===================================== --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -23,7 +23,7 @@ %unary-ftruncate/single-float %unary-ftruncate/double-float)) #-x87 -(export '(%unary-fround/single-float %unary-fround/double-float)) +(export '(%unary-fround %unary-fround/single-float %unary-fround/double-float)) (in-package "LISP") (export '(least-positive-normalized-short-float ===================================== src/general-info/release-21d.md ===================================== --- a/src/general-info/release-21d.md +++ b/src/general-info/release-21d.md @@ -29,10 +29,11 @@ public domain. * ANSI compliance fixes: * Bug fixes: * Gitlab tickets: - * ~~~#50~~~ CLX (Hemlock) fails to run. - * ~~~#49~~~ CLM crashes - * ~~~#47~~~ Backquate and multiple splices - * ~~~#59~~~ Incorrect type-derivation for `decode-float` + * ~~#50~~ CLX (Hemlock) fails to run. + * ~~#49~~ CLM crashes + * ~~#47~~ Backquate and multiple splices + * ~~#59~~ Incorrect type-derivation for `decode-float` + * ~~#60~~ The function `C::%UNARY-FROUND` is undefined * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== tests/issues.lisp ===================================== --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -503,4 +503,15 @@ (c::decode-float-exp-derive-type-aux (c::specifier-type `(single-float ,arg-lo ,arg-hi))) arg-lo - arg-hi)))) \ No newline at end of file + arg-hi)))) + +(define-test issue.60 + (:tag :issues) + (let ((c14 (compile nil #'(lambda (x) + (fround (the (member 1.0 2d0) x)))))) + (assert-equalp + (values 1.0 0.0) + (funcall c14 1.0)) + (assert-equalp + (values 2d0 0d0) + (funcall c14 2d0)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/894e18e020e6a16024bc63f2… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/894e18e020e6a16024bc63f2… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][rtoy-fix-60-unary-fround-undefined] Oops. Need to build with the bootstrap file.
by Raymond Toy 18 Feb '18

18 Feb '18

Raymond Toy pushed to branch rtoy-fix-60-unary-fround-undefined at cmucl / cmucl Commits: 84d9a4bd by Raymond Toy at 2018-02-17T19:56:32-08:00 Oops. Need to build with the bootstrap file. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -12,7 +12,7 @@ linux-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2) script: - - bin/build.sh -C "" -o snapshot/bin/lisp + - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist linux-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log @@ -24,6 +24,6 @@ osx-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2) script: - - bin/build.sh -C "" -o snapshot/bin/lisp + - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist darwin-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/84d9a4bd08f8d30cab242c85e… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/84d9a4bd08f8d30cab242c85e… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0