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

[Git][cmucl/cmucl][master] Update manual date to 21c
by Raymond Toy 14 Mar '18

14 Mar '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 3c749f8b by Raymond Toy at 2018-03-14T15:47:15-07:00 Update manual date to 21c Just change the date on the manual to the date of the 21c release. Now that we can create the html pages again with hevea, we can update this. - - - - - 1 changed file: - src/docs/cmu-user/cmu-user.tex Changes: ===================================== src/docs/cmu-user/cmu-user.tex ===================================== --- a/src/docs/cmu-user/cmu-user.tex +++ b/src/docs/cmu-user/cmu-user.tex @@ -48,7 +48,7 @@ \newcommand{\keywords}{lisp, Common Lisp, manual, compiler, programming language implementation, programming environment} -\date{October 2016 \\ 21b} +\date{October 2017 \\ 21c} \begin{document} View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/3c749f8b9bc08723d814ce9d4… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/3c749f8b9bc08723d814ce9d4… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[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