Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl

Commits:

4 changed files:

Changes:

  • src/code/filesys.lisp
    ... ... @@ -610,8 +610,8 @@
    610 610
     			 ;; We are an absolute pathname, so we can just use it.
    
    611 611
     			 pathname-directory)
    
    612 612
     			(t
    
    613
    -			 ;; We are a relative directory.  So we lose.
    
    614
    -			 (lose)))))
    
    613
    +			 ;; We are a relative directory, so just return it as is.
    
    614
    +			 pathname-directory))))
    
    615 615
     	    (strings (unparse-unix-directory-list result-dir)))
    
    616 616
     	  (let* ((pathname-version (%pathname-version pathname))
    
    617 617
     		 (version-needed (and pathname-version
    

  • src/code/unicode.lisp
    ... ... @@ -177,7 +177,7 @@
    177 177
     ;;   incorrect; instead, what we need is a new rule:
    
    178 178
     ;; 
    
    179 179
     ;;   *Break after paragraph separators.*
    
    180
    -;;    WB3a. Sep
    
    180
    +;;    WB3a. Sep
    
    181 181
     ;;   I'll make a propose to the UTC for this.
    
    182 182
     ;;
    
    183 183
     ;; Here is Will's translation of those rules (including WB3a)
    

  • src/general-info/release-template.md
    1
    +# Work in progress
    
    2
    +
    
    3
    +The CMUCL project is pleased to announce the release of CMUCL 21e.
    
    4
    +This is a major release which contains numerous enhancements and bug
    
    5
    +fixes from the <previous> release.
    
    6
    +
    
    7
    +CMUCL is a free, high performance implementation of the Common Lisp
    
    8
    +programming language which runs on most major Unix platforms. It
    
    9
    +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a
    
    10
    +sophisticated native code compiler; a powerful foreign function
    
    11
    +interface; an implementation of CLOS, the Common Lisp Object System,
    
    12
    +which includes multi-methods and a meta-object protocol; a
    
    13
    +source-level debugger and code profiler; and an Emacs-like editor
    
    14
    +implemented in Common Lisp. CMUCL is maintained by a team of
    
    15
    +volunteers collaborating over the Internet, and is mostly in the
    
    16
    +public domain.
    
    17
    +
    
    18
    +## New in this release:
    
    19
    +  * Known issues:
    
    20
    +  * Feature enhancements:
    
    21
    +  * Changes:
    
    22
    +  * ANSI compliance fixes:
    
    23
    +  * Bug fixes:
    
    24
    +  * Gitlab tickets:
    
    25
    +  * Other changes:
    
    26
    +  * Improvements to the PCL implementation of CLOS:
    
    27
    +  * Changes to building procedure:
    
    28
    +
    
    29
    +This release is not binary compatible with code compiled using CMUCL
    
    30
    +<previous>; you will need to recompile FASL files.
    
    31
    +
    
    32
    +See http://www.cmucl.org or
    
    33
    +https://gitlab.common-lisp.net/cmucl/cmucl for more information,
    
    34
    +See
    
    35
    +https://gitlab.common-lisp.net/cmucl/cmucl/wikis/GettingCmucl
    
    36
    +for obtaining CMUCL, including sources and binaries..
    
    37
    +
    
    38
    +
    
    39
    +We hope you enjoy using this release of CMUCL!

  • tests/issues.lisp
    ... ... @@ -986,3 +986,12 @@
    986 986
       (assert-true (equal (make-pathname :version :newest)
    
    987 987
     		      (make-pathname :version :unspecific)))
    
    988 988
     )
    
    989
    +
    
    990
    +(define-test issue.216.enough-namestring-relative-dir
    
    991
    +    (:tag :issues)
    
    992
    +  (let ((pathname #p"foo/bar.lisp"))
    
    993
    +  (dolist (defaults '(#p"/tmp/zot/" #p"/tmp/zot/foo/"))
    
    994
    +    (let ((enough (enough-namestring pathname defaults)))
    
    995
    +      ;; This is the condition from the CLHS entry for enough-namestring
    
    996
    +      (assert-equal (merge-pathnames enough defaults)
    
    997
    +		    (merge-pathnames (parse-namestring pathname nil defaults) defaults))))))