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

[Git][cmucl/cmucl][master] Remove extra trailing paren in tests/unix.lisp
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 16d8365f by Raymond Toy at 2026-04-30T17:17:00-07:00 Remove extra trailing paren in tests/unix.lisp - - - - - 1 changed file: - tests/unix.lisp Changes: ===================================== tests/unix.lisp ===================================== @@ -20,7 +20,7 @@ filename template)))) (when fd - (unix:unix-unlink filename))))) + (unix:unix-unlink filename)))) (define-test mkstemp.non-ascii-name-returned (:tag :issues) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/16d8365f8acd96d71f2b1c2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/16d8365f8acd96d71f2b1c2… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-495-describe-deftypes] Clean up tests
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed to branch issue-495-describe-deftypes at cmucl / cmucl Commits: 0fe285a4 by Raymond Toy at 2026-04-30T17:13:59-07:00 Clean up tests Be more careful with the lambda-list for the deftype with no args. Make sure the lambda-list is empty and that it was actually recorded. We don't need a temp file for the deftype for source-location. Just create a string that compile-from-stream can use. - - - - - 1 changed file: - tests/deftype.lisp Changes: ===================================== tests/deftype.lisp ===================================== @@ -25,8 +25,12 @@ (define-test issue.495.lambda-list (:tag :issues) - ;; lambda-list should be empty - (assert-false (c::info :type :lambda-list 'issue.495.no-args)) + ;; lambda-list should be empty. Make sure the lambda-list is NIL + ;; and that it was actually recorded. + (multiple-value-bind (result recorded-p) + (c::info :type :lambda-list 'issue.495.no-args) + (assert-equal nil result) + (assert-true recorded-p)) ;; lambda-list should match (assert-equal '(&optional low high) (c::info :type :lambda-list 'issue.495.optional)) @@ -72,15 +76,10 @@ ;; ;; Create a temp file that contains the deftype. Compile it and ;; load it into this lisp. - (ext:with-temporary-file (temp-file) - (with-open-file (s temp-file - :direction :io - :if-exists :supersede - :element-type 'character) - (format s "(in-package ~A)~%" (package-name *test-package*)) - (format s "(deftype issue.495.locn () 'integer)") - (file-position s 0) - (ext:compile-from-stream s))) + (with-input-from-string (s (format nil + "(in-package ~A)~%(deftype issue.495.locn () 'integer)" + (package-name *test-package*))) + (ext:compile-from-stream s)) ;; The source-location should be stored only in the :deftype, not ;; :defvar. (assert-true (c::info :source-location :deftype 'issue.495.locn)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0fe285a4b74c916b6ef6eef… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0fe285a4b74c916b6ef6eef… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-495-describe-deftypes] Add tests for the new defype stuff
by Raymond Toy (＠rtoy) 01 May '26

01 May '26

Raymond Toy pushed to branch issue-495-describe-deftypes at cmucl / cmucl Commits: b30b350c by Raymond Toy at 2026-04-30T17:01:36-07:00 Add tests for the new defype stuff Add tests for the following: * The lambda-list for a deftype is correct. * The docstring for the deftype is correctly returned. * The expander for the deftype returns the correct value. * `describe` produces a string for deftype, verifying that both `c::info` and `documentation` return a string. * The source-location for a deftype (compiled) is not empty. - - - - - 1 changed file: - + tests/deftype.lisp Changes: ===================================== tests/deftype.lisp ===================================== @@ -0,0 +1,87 @@ +;;; Tests for deftype documention and location info + +(defpackage :deftype-tests + (:use :cl :lisp-unit)) + +(in-package "DEFTYPE-TESTS") + +(eval-when (:compile-toplevel :load-toplevel :execute) + ;; Capture the package. + (defvar *test-package* *package*)) + +;; Various types for testing. +(deftype issue.495.no-args () + '(integer 0 10)) + +(deftype issue.495.optional (&optional low high) + `(float ,low ,high)) + +(deftype issue.495.required (low high) + `(integer ,low ,high)) + +(deftype issue.495.with-doc () + "A small non-negative integer." + '(integer 0 10)) + +(define-test issue.495.lambda-list + (:tag :issues) + ;; lambda-list should be empty + (assert-false (c::info :type :lambda-list 'issue.495.no-args)) + ;; lambda-list should match + (assert-equal '(&optional low high) + (c::info :type :lambda-list 'issue.495.optional)) + (assert-equal '(low high) + (c::info :type :lambda-list 'issue.495.required))) + +(define-test issue.495.doc + (:tag :issues) + ;; Test that the docstring is returned as expected. + (assert-equal "A small non-negative integer." + (documentation 'issue.495.with-doc 'type)) + (assert-equal "A small non-negative integer." + (c::info :type :documentation 'issue.495.with-doc))) + +(define-test issue.495.expander + (:tag :issues) + ;; Test that the type expander produces the expected output. + (assert-equal '(integer 0 10) + (funcall (c::info :type :expander 'issue.495.no-args) + '(issue.495.no-args))) + (assert-equal '(float * *) + (funcall (c::info :type :expander 'issue.495.optional) + '(issue.495.optional)))) + +(define-test issue.495.describe + (:tag :issues) + ;; Just make sure describe prints some string. We're not testing + ;; the contents of the string. + (assert-true + (stringp (with-output-to-string (*standard-output*) + (describe 'issue.495.no-args)))) + (assert-true + (stringp (with-output-to-string (*standard-output*) + (describe 'issue.495.optional)))) + (assert-true + (stringp (with-output-to-string (*standard-output*) + (describe 'issue.495.required))))) + +(define-test issue.495.source-location + (:tag :issues) + ;; The source-location info is non-NIL only if we compile the + ;; deftype form. + ;; + ;; Create a temp file that contains the deftype. Compile it and + ;; load it into this lisp. + (ext:with-temporary-file (temp-file) + (with-open-file (s temp-file + :direction :io + :if-exists :supersede + :element-type 'character) + (format s "(in-package ~A)~%" (package-name *test-package*)) + (format s "(deftype issue.495.locn () 'integer)") + (file-position s 0) + (ext:compile-from-stream s))) + ;; The source-location should be stored only in the :deftype, not + ;; :defvar. + (assert-true (c::info :source-location :deftype 'issue.495.locn)) + (assert-false (c::info :source-location :defvar 'issue.495.locn))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b30b350cc5408fc1281fbd2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b30b350cc5408fc1281fbd2… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][issue-495-describe-deftypes] 3 commits: Add comments to bootstrap file.
by Raymond Toy (＠rtoy) 30 Apr '26

30 Apr '26

Raymond Toy pushed to branch issue-495-describe-deftypes at cmucl / cmucl Commits: 4ed6c57f by Raymond Toy at 2026-04-30T07:04:04-07:00 Add comments to bootstrap file. Just clarify what we're doing and for what issue - - - - - f1a5651a by Raymond Toy at 2026-04-30T07:04:56-07:00 Print out the source location for the deftype The source location is stored in :deftype so we need to use that for the source location instead of :defvar. Updated cmucl.pot for new strings. - - - - - dde2e4ab by Raymond Toy at 2026-04-30T07:22:22-07:00 Cross-compile build needs a cross boostrap file Add new variable "crossboot" to hold the option to specify a cross bootstrap file for cross-build-world to use. In this case, we need one for the deftype changes, and it's the same boot file we would use for the normal build. - - - - - 4 changed files: - .gitlab-ci.yml - src/bootfiles/21f/boot-21f.lisp - src/code/describe.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== .gitlab-ci.yml ===================================== @@ -7,7 +7,11 @@ variables: download_url: "https://common-lisp.net/project/cmucl/downloads/release/$release" version: "$release-x86" tar_ext: "xz" + # bootstrap is for normal builds bootstrap: "-B boot-21f" + # crossboot is for cross-compiles where the cross-compile script + # isn't enough and we need an extra file. + crossboot: "-B src/bootfiles/21f/boot-21f" workflow: rules: @@ -229,7 +233,7 @@ linux:cross-build: script: - bin/create-target.sh xtarget $CONFIG - bin/create-target.sh xcross $CONFIG - - bin/cross-build-world.sh -crl xtarget xcross src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp + - bin/cross-build-world.sh $crossboot -crl xtarget xcross src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp - bin/build.sh -b xlinux $bootstrap -R -C $CONFIG -o "xtarget/lisp/lisp -lib xtarget/lisp" - bin/make-dist.sh -I xdist xlinux-4 ===================================== src/bootfiles/21f/boot-21f.lisp ===================================== @@ -1,11 +1,20 @@ +;; Bootstrap file for issue #495 to add more information when +;; describing user-defined types. +;; (setf lisp::*enable-package-locked-errors* nil) (in-package "C") -;; deftype information +;; New deftype information. +;; +;; We define a :lambda-list for types where we can store the +;; lambda-list of the deftype. We also add a :defype source-location +;; for deftypes so we don't use :defvar for this. (define-info-type type lambda-list list nil) (define-info-type source-location deftype (or form-numbers null) nil) (in-package "LISP") +;; New deftype macro to saves the lambda-list of the type. %deftype +;; is updated to take the extra arg for the lambda-list. (defmacro deftype (name arglist &body body) "Syntax like DEFMACRO, but defines a new type." (unless (symbolp name) ===================================== src/code/describe.lisp ===================================== @@ -480,18 +480,14 @@ (describe pcl-class))))) ;; ;; Print out information about any types named by the symbol - #+nil - (when (eq (info type kind x) :defined) - (format t (intl:gettext "~&It names a type specifier."))) - (format t "info type kind = ~A~%" (info type kind x)) - (case (info type kind x) + (case (info :type :kind x) (:defined ;; User defined type (format t (intl:gettext "~&It names a type specifier.")) (let ((lambda-list (info type lambda-list x))) (when lambda-list - (format t (intl:gettext "~& Lambda list: ~S") lambda-list))) - (let ((expander (info type expander x))) + (format t (intl:gettext "~& Lambda list: ~S") lambda-list))) + (let ((expander (info :type :expander x))) (when expander (let ((expansion (ignore-errors (funcall expander (list x))))) (when expansion @@ -499,10 +495,10 @@ (list x) expansion)))))) (:primitive ;; Primitive built-in type - (format t (intl:gettext "~&It names a type specifier.")) - (let ((builtin (info type builtin x))) + (format t (intl:gettext "~&It names a primitive type specifier.")) + (let ((builtin (info :type :builtin x))) (when builtin - (format t (intl:gettext "~& Internal type: ~S") builtin))))) + (format t (intl:gettext "~& Internal type: ~S") builtin))))) ;; ;; Print out properties, possibly ignoring implementation details. (do ((plist (symbol-plist X) (cddr plist))) @@ -512,6 +508,15 @@ (describe (cadr plist)))) ;; Describe where it was defined. + ;; + ;; Note: Source location for user-defined types is stored in + ;; :deftype. However :defvar is currently used for defvar, + ;; defparameter, defconstant. Just try printing both :defvar and + ;; :deftype locations. They should be distinct. (let ((locn (info :source-location :defvar x))) (when locn - (format t (intl:gettext "~&It is defined in:~&~A") (c::file-source-location-pathname locn))))) + (format t (intl:gettext "~&It is defined in:~&~A") (c::file-source-location-pathname locn)))) + (let ((locn (info :source-location :deftype x))) + (when locn + (format t (intl:gettext "~&The type is defined in:~&~A") + (c::file-source-location-pathname locn))))) ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -13132,7 +13132,7 @@ msgid "~&It names a type specifier." msgstr "" #: src/code/describe.lisp -msgid "~& Lambda list: ~S" +msgid "~& Lambda list: ~S" msgstr "" #: src/code/describe.lisp @@ -13140,7 +13140,11 @@ msgid "~& Sample expansion: ~S: ~S" msgstr "" #: src/code/describe.lisp -msgid "~& Internal type: ~S" +msgid "~&It names a primitive type specifier." +msgstr "" + +#: src/code/describe.lisp +msgid "~& Internal type: ~S" msgstr "" #: src/code/describe.lisp @@ -13151,6 +13155,10 @@ msgstr "" msgid "~&It is defined in:~&~A" msgstr "" +#: src/code/describe.lisp +msgid "~&The type is defined in:~&~A" +msgstr "" + #: src/code/tty-inspect.lisp msgid "~%That slot is unbound.~%" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a91d9848fac43732869599… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a91d9848fac43732869599… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl] Pushed new branch issue-495-describe-deftypes
by Raymond Toy (＠rtoy) 30 Apr '26

30 Apr '26

Raymond Toy pushed new branch issue-495-describe-deftypes at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-495-describe-deftyp… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl] Pushed new branch issue-436-function-type-assertion
by Raymond Toy (＠rtoy) 26 Apr '26

26 Apr '26

Raymond Toy pushed new branch issue-436-function-type-assertion at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-436-function-type-a… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #494: Add/update docstrings for xref functions
by Raymond Toy (＠rtoy) 26 Apr '26

26 Apr '26

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 1fd68bd3 by Raymond Toy at 2026-04-26T09:22:38-07:00 Fix #494: Add/update docstrings for xref functions - - - - - 17d9a062 by Raymond Toy at 2026-04-26T09:22:38-07:00 Merge branch 'issue-494-add-xref-docstrings' into 'master' Fix #494: Add/update docstrings for xref functions Closes #494 See merge request cmucl/cmucl!369 - - - - - 2 changed files: - src/compiler/xref.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/compiler/xref.lisp ===================================== @@ -66,8 +66,25 @@ (defstruct (xref-context (:print-function %print-xref-context) (:make-load-form-fun :just-dump-it-normally)) + ;; The name identifies the program site that originated the + ;; cross-reference and is one of: a symbol naming a global + ;; function; a list (SETF foo); a list (:MACRO foo) for a macro; + ;; a list (:INTERNAL outer inner) for an inner function (FLET, + ;; LABELS, or anonymous lambda); a list (:METHOD foo (specializer + ;; ...)) for a method; the string "Top-Level Form" for a reference + ;; from a top-level form; or a string such as "defun foo" or + ;; "DEFSTRUCT FOO" identifying a reference from compiler-generated + ;; code. name + ;; The truename (in the sense of *COMPILE-FILE-TRUENAME*) of the + ;; source file the referencing forms were compiled from, or NIL + ;; if compiled from a stream or interactively. (file *compile-file-truename*) + ;; A list of positive integers identifying the form that contains + ;; the cross-reference. The first integer is the number of the + ;; top-level form in the source file (1-based); subsequent + ;; integers identify nested subforms. Always NIL when FILE is + ;; NIL. (source-path nil)) (defun %print-xref-context (s stream d) @@ -82,6 +99,18 @@ (xref-context-name s) (xref-context-file s))))) +(setf (documentation 'xref-context-name 'function) + _N"Return the name slot of an xref-context, identifying the program +site that originated the cross-reference.") + +(setf (documentation 'xref-context-file 'function) + _N"Return the source file truename of an xref-context, or NIL if +the code was not compiled from a file.") + +(setf (documentation 'xref-context-source-path 'function) + _N"Return the source-path of an xref-context, a list of positive +integers identifying the form that contains the cross-reference.") + ;; program contexts where a globally-defined function may be called at runtime (defvar *who-calls* (make-hash-table :test #'eq)) @@ -153,21 +182,30 @@ may be referenced at runtime." ;; WHO-BINDS -- interface ;; (defun who-binds (global-variable) - "Return a list of those program contexts where GLOBAL-VARIABLE may -be bound at runtime." + "Return a list of those program contexts where GLOBAL-VARIABLE may be bound at runtime. + + A binding is recorded whenever the compiler emits a special binding + for the form -- including cases that look lexical in source, such as (LET (FOO) + ...), if FOO has been proclaimed special earlier in the compiling + image. WHO-BINDS reflects what the compiler did, not what the source + text appears to say." (declare (type symbol global-variable)) (gethash global-variable *who-binds*)) ;; WHO-SETS -- interface ;; (defun who-sets (global-variable) - "Return a list of those program contexts where GLOBAL-VARIABLE may -be set at runtime." + "Return a list of those program contexts where GLOBAL-VARIABLE may be + set at runtime." (declare (type symbol global-variable)) (gethash global-variable *who-sets*)) (defun who-macroexpands (macro) + "Return a list of those program contexts where MACRO may be expanded at + compile time. The caller name in each context is the form whose + compilation triggered the macroexpansion (a function, a method, or + the string \"Top-Level Form\")." (declare (type symbol macro)) (gethash macro *who-macroexpands*)) @@ -177,22 +215,35 @@ be set at runtime." ;; WHO-SUBCLASSES -- interface ;; (defun who-subclasses (class) + "Return the list of direct subclasses of CLASS. Only direct subclasses + are returned; transitive subclasses are not. CLASS is a class + metaobject, not a class-name symbol; use FIND-CLASS to convert a + name." (pcl::class-direct-subclasses class)) ;; WHO-SUPERCLASSES -- interface ;; (defun who-superclasses (class) + "Return the list of direct superclasses of CLASS. Only direct + superclasses are returned; transitive superclasses are not. CLASS + is a class metaobject, not a class-name symbol; use FIND-CLASS to + convert a name." (pcl::class-direct-superclasses class)) ;; WHO-SPECIALIZES -- interface ;; -;; generic functions defined for this class (defun who-specializes (class) + "Return the list of methods that specialize directly on CLASS. CLASS is + a class metaobject, not a class-name symbol; use FIND-CLASS to + convert a name." (pcl::specializer-direct-methods class)) ;; Go through all the databases and remove entries from that that ;; reference the given Namestring. (defun invalidate-xrefs-for-namestring (namestring) + "Remove from every cross-reference database all xref-contexts whose + source file is NAMESTRING. Used to clear stale entries before + recompiling a file." (labels ((matching-context (ctx) (equal namestring (if (pathnamep (xref-context-file ctx)) (namestring (xref-context-file ctx)) @@ -212,6 +263,17 @@ be set at runtime." ;; return a list of all the matches. Each element of the list is a ;; list of the target followed by the entries. (defun find-xrefs-for-pathname (db pathname) + "Return entries from cross-reference database DB whose source file + matches PATHNAME. DB is one of :CALLS, :CALLED, :REFERENCES, + :BINDS, :SETS, or :MACROEXPANDS. + + Each entry is a two-element list (TARGET CONTEXTS), where TARGET is + the the symbol (or (SETF foo) form for setf functions) being + cross-referenced — a function name for :CALLS, :CALLED, and + :MACROEXPANDS, a variable name for :REFERENCES, :BINDS, and :SETS. + and CONTEXTS is the list of xref-contexts (the program sites + originating the cross-reference) for TARGET whose file slot matches + PATHNAME." (let ((entries '())) (maphash #'(lambda (target contexts) (let ((matches '())) ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -19854,6 +19854,24 @@ msgstr "" msgid "Return the Nth VOP in the IR2-Block pointed to by Thing." msgstr "" +#: src/compiler/xref.lisp +msgid "" +"Return the name slot of an xref-context, identifying the program\n" +"site that originated the cross-reference." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return the source file truename of an xref-context, or NIL if\n" +"the code was not compiled from a file." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return the source-path of an xref-context, a list of positive\n" +"integers identifying the form that contains the cross-reference." +msgstr "" + #: src/compiler/xref.lisp msgid "Reinitialize the cross-reference database." msgstr "" @@ -19872,14 +19890,74 @@ msgstr "" #: src/compiler/xref.lisp msgid "" -"Return a list of those program contexts where GLOBAL-VARIABLE may\n" -"be bound at runtime." +"Return a list of those program contexts where GLOBAL-VARIABLE may be bound " +"at runtime.\n" +"\n" +" A binding is recorded whenever the compiler emits a special binding\n" +" for the form -- including cases that look lexical in source, such as (LET " +"(FOO)\n" +" ...), if FOO has been proclaimed special earlier in the compiling\n" +" image. WHO-BINDS reflects what the compiler did, not what the source\n" +" text appears to say." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where GLOBAL-VARIABLE may be\n" +" set at runtime." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where MACRO may be expanded at\n" +" compile time. The caller name in each context is the form whose\n" +" compilation triggered the macroexpansion (a function, a method, or\n" +" the string \"Top-Level Form\")." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return the list of direct subclasses of CLASS. Only direct subclasses\n" +" are returned; transitive subclasses are not. CLASS is a class\n" +" metaobject, not a class-name symbol; use FIND-CLASS to convert a\n" +" name." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return the list of direct superclasses of CLASS. Only direct\n" +" superclasses are returned; transitive superclasses are not. CLASS\n" +" is a class metaobject, not a class-name symbol; use FIND-CLASS to\n" +" convert a name." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return the list of methods that specialize directly on CLASS. CLASS is\n" +" a class metaobject, not a class-name symbol; use FIND-CLASS to\n" +" convert a name." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Remove from every cross-reference database all xref-contexts whose\n" +" source file is NAMESTRING. Used to clear stale entries before\n" +" recompiling a file." msgstr "" #: src/compiler/xref.lisp msgid "" -"Return a list of those program contexts where GLOBAL-VARIABLE may\n" -"be set at runtime." +"Return entries from cross-reference database DB whose source file\n" +" matches PATHNAME. DB is one of :CALLS, :CALLED, :REFERENCES,\n" +" :BINDS, :SETS, or :MACROEXPANDS.\n" +"\n" +" Each entry is a two-element list (TARGET CONTEXTS), where TARGET is\n" +" the the symbol (or (SETF foo) form for setf functions) being\n" +" cross-referenced ? a function name for :CALLS, :CALLED, and\n" +" :MACROEXPANDS, a variable name for :REFERENCES, :BINDS, and :SETS.\n" +" and CONTEXTS is the list of xref-contexts (the program sites\n" +" originating the cross-reference) for TARGET whose file slot matches\n" +" PATHNAME." msgstr "" #: src/compiler/dyncount.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/314c203fcac726efc947ad… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/314c203fcac726efc947ad… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl] Pushed new branch issue-494-add-xref-docstrings
by Raymond Toy (＠rtoy) 26 Apr '26

26 Apr '26

Raymond Toy pushed new branch issue-494-add-xref-docstrings at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-494-add-xref-docstr… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl] Pushed new branch isue-493-xref-record-top-level-macroexpansion
by Raymond Toy (＠rtoy) 25 Apr '26

25 Apr '26

Raymond Toy pushed new branch isue-493-xref-record-top-level-macroexpansion at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/isue-493-xref-record-top-… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0

[Git][cmucl/cmucl][arm-dev] Set C compiler for arm. Allow using different compiler in elf.h
by Raymond Toy (＠rtoy) 28 Mar '26

28 Mar '26

Raymond Toy pushed to branch arm-dev at cmucl / cmucl Commits: de1ded89 by Raymond Toy at 2026-03-27T17:23:56-07:00 Set C compiler for arm. Allow using different compiler in elf.h For arm/linux, we're building on a Raspberry Pi 5 and a 64-bit raspbian OS. To build and run cmucl we needed the 32-bit compiler and libraries. Hence set the compiler in Config.arm_linux appropriately. Also, let Config specify the compiler to use in elf.h. (Untested on arm, of course.) Otherwise it defaults to "gcc", basically. - - - - - 2 changed files: - src/lisp/Config.arm_linux - src/lisp/elf.h Changes: ===================================== src/lisp/Config.arm_linux ===================================== @@ -105,6 +105,11 @@ OPENLIBM_SRCS = \ $(OPENLIBM_DIR)/s_tanhf.c endif +# We're currently building cmucl on a Raspberry Pi5 running a 64-bit +# raspbian. We had to download the arm32 compiler and libraries to be +# able to build and run cmucl. +CC = arm-linux-gnueabihf-gcc + ifeq ($(filter 2% 3%, $(shell $(CC) -dumpversion)),) CPP_INCLUDE_OPTIONS := -iquote . -iquote $(PATH1) ifndef FEATURE_CORE_MATH @@ -130,7 +135,7 @@ ASSEM_SRC = arm-assem.S undefineds-assem.S OS_SRC += Linux-os.c os-common.c elf.c OS_LIBS = -ldl -lutil OS_LINK_FLAGS = -marm -rdynamic -Wl,-Map,foo -Wl,-z,noexecstack -CFLAGS += -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 +CFLAGS += -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DDEFINE_C_COMPILER=$(CC) EXEC_FINAL_OBJ = exec-final.o ===================================== src/lisp/elf.h ===================================== @@ -34,7 +34,7 @@ */ #if defined(__SUNPRO_C) #define C_COMPILER "cc" -#else +#elif !defined(C_COMPILER) #define C_COMPILER "gcc" #endif View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/de1ded89e4bb8a5bc910f1e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/de1ded89e4bb8a5bc910f1e… You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help

1 0