Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl
Commits: b6e9fd43 by Raymond Toy at 2023-06-05T14:20:56-04:00 Add a simple template for release notes
Supply a template for release notes that has the various parts to be filled in.
This probably needs some tweaking. I'm no longer clear on the differences between "Changes", "ANSI compliance fixes", "Bug fixes", and "Gitlab tickets".
- - - - - 2d76d55f by Raymond Toy at 2023-06-05T14:20:57-04:00 Fix #216: enough-namestring with relative pathname fails
- - - - - 149665ae by Raymond Toy at 2023-06-05T14:20:59-04:00 Remove unicode replacement character
There's a Unicode replacement character (U+FFFD) in src/code/unicode.lisp. I tried to see if I can figure out what character was actually here, but I couldn't find the original. There's no point in having it here since it provides no information other than at some point it got replaced. Might as well remove it.
- - - - -
4 changed files:
- src/code/filesys.lisp - src/code/unicode.lisp - + src/general-info/release-template.md - tests/issues.lisp
Changes:
===================================== src/code/filesys.lisp ===================================== @@ -610,8 +610,8 @@ ;; We are an absolute pathname, so we can just use it. pathname-directory) (t - ;; We are a relative directory. So we lose. - (lose))))) + ;; We are a relative directory, so just return it as is. + pathname-directory)))) (strings (unparse-unix-directory-list result-dir))) (let* ((pathname-version (%pathname-version pathname)) (version-needed (and pathname-version
===================================== src/code/unicode.lisp ===================================== @@ -177,7 +177,7 @@ ;; incorrect; instead, what we need is a new rule: ;; ;; *Break after paragraph separators.* -;; WB3a. Sep � +;; WB3a. Sep ;; I'll make a propose to the UTC for this. ;; ;; Here is Will's translation of those rules (including WB3a)
===================================== src/general-info/release-template.md ===================================== @@ -0,0 +1,39 @@ +# Work in progress + +The CMUCL project is pleased to announce the release of CMUCL 21e. +This is a major release which contains numerous enhancements and bug +fixes from the <previous> release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a +source-level debugger and code profiler; and an Emacs-like editor +implemented in Common Lisp. CMUCL is maintained by a team of +volunteers collaborating over the Internet, and is mostly in the +public domain. + +## New in this release: + * Known issues: + * Feature enhancements: + * Changes: + * ANSI compliance fixes: + * Bug fixes: + * Gitlab tickets: + * Other changes: + * Improvements to the PCL implementation of CLOS: + * Changes to building procedure: + +This release is not binary compatible with code compiled using CMUCL +<previous>; you will need to recompile FASL files. + +See http://www.cmucl.org or +https://gitlab.common-lisp.net/cmucl/cmucl for more information, +See +https://gitlab.common-lisp.net/cmucl/cmucl/wikis/GettingCmucl +for obtaining CMUCL, including sources and binaries.. + + +We hope you enjoy using this release of CMUCL!
===================================== tests/issues.lisp ===================================== @@ -986,3 +986,12 @@ (assert-true (equal (make-pathname :version :newest) (make-pathname :version :unspecific))) ) + +(define-test issue.216.enough-namestring-relative-dir + (:tag :issues) + (let ((pathname #p"foo/bar.lisp")) + (dolist (defaults '(#p"/tmp/zot/" #p"/tmp/zot/foo/")) + (let ((enough (enough-namestring pathname defaults))) + ;; This is the condition from the CLHS entry for enough-namestring + (assert-equal (merge-pathnames enough defaults) + (merge-pathnames (parse-namestring pathname nil defaults) defaults))))))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2c5f040e8bf7d350baa3801...