GitLab

at 2023-11-24T17:43:34+00:00

Fix #259: Move *software-version* from LISP to SYSTEM package

Merge branch 'issue-259-b-use-right-software-version' into 'master'

Fix #259: Move *software-version* from LISP to SYSTEM package

Closes #259

See merge request cmucl/cmucl!175
Add support for Gray stream implementation of file-length

Merge branch 'gray-file-length' into 'master'

Add support for Gray stream implementation of file-length

See merge request cmucl/cmucl!179
Merge branch 'master' into issue-269-unix-get-user-homedir

 variables:

   download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/08"

   version: "2023-08-x86"

-  bootstrap: ""

+  bootstrap: "-B boot-2023-08"

+

 

 stages:

   - install

 ENABLE3="yes"

 ENABLE4="yes"

 

-version=21d

+version=21e

 SRCDIR=src

 BINDIR=bin

 TOOLDIR=$BINDIR

+;; Build with -B boot-2023-08 from the 2023-08 snapshot.  We're moving

+;; *SOFTWARE-VERSION* from the LISP package to the SYSTEM package.

+(ext:without-package-locks

+    (unintern 'lisp::*software-version* "LISP"))
 	   "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" 

 	   "STREAM-CLEAR-OUTPUT"

 	   "STREAM-FILE-POSITION"

+	   "STREAM-FILE-LENGTH"

 	   "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"

 	   "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"

 	   "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"

 	   "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P"

 	   "*BEEP-FUNCTION*"

 	   "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"

-	   "*SOFTWARE-TYPE*" "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*"

+	   "*SOFTWARE-TYPE*"

+           "*SOFTWARE-VERSION*"

+           "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*"

 	   "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"

 	   "*XWINDOW-TABLE*"

 	   "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" "ADD-PORT-OBJECT"

 	  short-site-name long-site-name dribble compiler-macro))

 

 (in-package "SYSTEM")

-(export '(*software-type* *short-site-name* *long-site-name*))

+(export '(*software-type* *software-version* *short-site-name* *long-site-name*))

 

 (in-package "EXT")

 (export 'featurep)

     ;; simple-stream

     (stream::%file-length stream)

     ;; lisp-stream

-    (funcall (lisp-stream-misc stream) stream :file-length)))

+    (funcall (lisp-stream-misc stream) stream :file-length)

+    ;; fundamental-stream

+    (stream-file-length stream)))

 

 

 ;;; Input functions:

 ## New in this release:

   * Known issues:

   * Feature enhancements:

+    * Add support for Gray streams implementation of file-length via

+      `ext:stream-file-length` generic function.

   * Changes:

   * ANSI compliance fixes:

   * Bug fixes:

       (file-position stream position)

       (file-position stream)))

 

+(define-gray-stream-method ext:stream-file-length ((stream simple-stream))

+  (file-length stream))

+

 (define-gray-stream-method ext:stream-clear-output ((stream simple-stream))

   (clear-output stream))

 

 (defmethod (setf stream-file-position) (position (stream character-output-stream))

   (file-position (character-output-stream-lisp-stream stream) position))

 

+(defgeneric stream-file-length (stream)

+  (:documentation

+   _N"Implements FILE-LENGTH for the stream."))

+

+(defmethod stream-file-length (stream)

+  (error 'type-error :datum stream :expected-type 'file-stream))

+

 

 ;;; Binary streams.

 ;;;

Raymond Toy pushed to branch issue-269-unix-get-user-homedir at cmucl / cmucl

Commits:

9 changed files:

Changes: