Raymond Toy pushed to branch issue-140-stream-element-type-two-way-stream at cmucl / cmucl

Commits:

• cde14045
  by Raymond Toy at 2022-10-16T14:26:39+00:00

  Fix #142: (random 0) signals incorrect error
  

• 4c9cbf43
  by Raymond Toy at 2022-10-16T14:26:41+00:00

  Merge branch 'issue-142-random-0-wrong-error' into 'master'
  
  Fix #142: (random 0) signals incorrect error
  
  Closes #142
  
  See merge request cmucl/cmucl!99

• b59185fc
  by Raymond Toy at 2022-10-16T14:27:39+00:00

  Fix #136: ensure-directories-exist should return the given pathspec
  

• 49ecc858
  by Raymond Toy at 2022-10-16T14:27:39+00:00

  Merge branch 'issue-136-ansi-test-ensure-directories-exist.8' into 'master'
  
  Fix #136: ensure-directories-exist should return the given pathspec
  
  Closes #136
  
  See merge request cmucl/cmucl!92

• 08e5370a
  by Raymond Toy at 2022-10-16T07:33:23-07:00

  Update release notes based on recent merges
  
  Forgot to update the release notes with recent merges that fixed a few
  issues.  Hence update the notes now.
  
  Also testing see if we need to add a strikeout for closed issues, so
  didn't add strikeout for these.
  

• 556b1a5b
  by Raymond Toy at 2022-10-16T07:35:57-07:00

  Add strikeout for closed issues
  
  Nope, gitlab doesn't mark closed issues in anyway, unlike Trac that
  would automatically strikeout references to closed issues.  We have to
  do it ourselves.
  

• 95b4fc5c
  by Raymond Toy at 2022-10-16T13:05:09-07:00

  Fix #146: CI passes incorrectly
  
  We forgot to update the script for macos to use separate `grep`
  commands like we did for linux.
  

• cb749b6d
  by Raymond Toy at 2022-10-17T08:52:54-07:00

  Merge branch 'master' into issue-140-stream-element-type-two-way-stream
  

5 changed files:

• .gitlab-ci.yml
• src/code/filesys.lisp
• src/code/rand-xoroshiro.lisp
• src/general-info/release-21e.md
• tests/filesys.lisp

Changes:

   script:

     - cd ansi-test

     - make LISP="../dist/bin/lisp -batch -noinit -nositeinit"

-    - grep 'No unexpected \(successes\|failures\)' test.out 

+    # There should be no unexpected successes or failures; check these separately.

+    - grep -a 'No unexpected successes' test.out && grep -a 'No unexpected failures' test.out

 osx:benchmark:

   stage: benchmark

 			 (retry () :report "Try to create the directory again"

 				(go retry))))))

 	 ;; Only the first path in a search-list is considered.

-	 (return (values pathname created-p))))))

+	 (return (values pathspec created-p))))))

     (t

      (error 'simple-type-error

 	    :expected-type '(or (integer 1) (float (0.0))) :datum arg

-	    :format-control _"Argument is not a positive integer or a positive float: ~S")

-	    :format-arguments (list arg))))

+	    :format-control _"Argument is not a positive integer or a positive float: ~S"

+	    :format-arguments (list arg)))))

 ;; Jump function for the generator.  See the jump function in

 ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c

     * ~~#113~~ REQUIRE on contribs can pull in the wrong things via ASDF.

     * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM

     * ~~#122~~ gcc 11 can't build cmucl

+    * ~~#125~~ Linux `unix-stat` returning incorrect values

     * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid.

     * ~~#128~~ `QUIT` accepts an exit code

+    * ~~#132~~ Ansi test `RENAME-FILE.1` no fails

+    * ~~#134~~ Handle the case of `(expt complex complex-rational)`

+    * ~~#136~~ `ensure-directories-exist` should return the given pathspec

     * ~~#140~~ External format of `two-way-stream` returns the common format of the input and output streams if possible; otherwise, return `:default`.

+    * ~~#142~~ `(random 0)` signals incorrect error

   * Other changes:

   * Improvements to the PCL implementation of CLOS:

   * Changes to building procedure:

 (define-test unix-namestring.1.exists

   ;; Make sure the desired directories exist.

-  (assert-equal #P"/tmp/foo/bar/hello.txt"

+  (assert-equal "/tmp/foo/bar/hello.txt"

 		(ensure-directories-exist "/tmp/foo/bar/hello.txt"))

   (dolist (path '("/tmp/hello.txt"

 		  "/tmp/foo/"

 (define-test unix-namestring.1.non-existent

   ;; Make sure the desired directories exist.

-  (assert-equal #P"/tmp/foo/bar/hello.txt"

+  (assert-equal "/tmp/foo/bar/hello.txt"

 		(ensure-directories-exist "/tmp/foo/bar/hello.txt"))

   ;; These paths contain directories that don't exist.

   (dolist (path '("/tmp/oops/"

 (define-test unix-namestring.2

   ;; Make sure the desired directories exist.

-  (assert-equal #P"/tmp/foo/bar/hello.txt"

+  (assert-equal "/tmp/foo/bar/hello.txt"

 		(ensure-directories-exist "/tmp/foo/bar/hello.txt"))

   (unwind-protect

        (progn