GitLab

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.

@@ -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)
+-

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl

Commits:

1 changed file:

Changes: