the function program-error is undefined

(defmacro with-preserved-values (vars &body body)
  `(let ,(mapcar #'(lambda (var)
                     `(,var ,var)
                     vars))
     ,@body))

returns

xxx.lisp:57:1:
  error: 
    Error:
      in file ecl-swank-tmpfile-3TNn1K, position 0
      at (FSET 'WITH-PRESERVED-VALUES ...)
      * The macro form (MAPCAR #'(LAMBDA (VAR) `(,VAR ,VAR) VARS)) was not expanded successfully.
    Error detected:
    The function PROGRAM-ERROR is undefined.

Should return a meaningful information (like "mapcar expects at least two arguments"). Calling PROGRAM-ERROR is a bug as well.

To investigate.

changed milestone to %ECL 16.2.0

mentioned in merge request !79 (closed)

fixed in develop

closed