Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: 7c9ffe2e by Raymond Toy at 2025-03-27T14:57:58-07:00 Remove *unix-errors* and *compiler-unix-errors* Since we get the errno documentation via `strerror` now, we don't need `*unix-errors*` and `*compiler-unix-errors*` now. This makes `def-unix-error` simpler so that it just does a `defconstant` and `export`. We can also get rid of `emit-unix-errors` and the call at the end of the file. - - - - - 1 changed file: - bin/errno-template.lisp Changes: ===================================== bin/errno-template.lisp ===================================== @@ -24,20 +24,9 @@ (defmacro def-unix-error (name number &optional description) (declare (ignore description)) `(progn - (eval-when (compile eval) - (push (cons ,number ,description) *compiler-unix-errors*)) (defconstant ,name ,number) (export ',name))) -(defmacro emit-unix-errors () - (let* ((max (apply #'max (mapcar #'car *compiler-unix-errors*))) - (array (make-array (1+ max) :initial-element nil))) - (dolist (error *compiler-unix-errors*) - (setf (svref array (car error)) (cdr error))) - `(progn - (defvar *unix-errors* ',array) - (declaim (simple-vector *unix-errors*))))) - ) ;eval-when ;;; @@ -146,7 +135,3 @@ ;;; Do NOT modify the line below. bin/create-errno.sh depends on it. ;;; End of default def-unix-error forms - -;;; And now for something completely different ... -(emit-unix-errors) - View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7c9ffe2e5783acfdc4a74336... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7c9ffe2e5783acfdc4a74336... You're receiving this email because of your account on gitlab.common-lisp.net.