Custom Query (1030 matches)

see <​https://lists.clozure.com/pipermail/openmcl-devel/2016-April/011247.html>

Trying to use nil as a function-name in defun crashes CCL 1.11. I think it should signal an error instead. I propose to change ccl::validate-function-name like so:

*** /usr/lib/ccl/level-0/l0-def.lisp
--- #<buffer l0-def.lisp>
***************
*** 118,124 ****
    name))
  
  (defun validate-function-name (name)
!   (if (symbolp name)
      name
      (if (setf-function-name-p name)
        (setf-function-name (cadr name))
--- 118,124 ----
    name))
  
  (defun validate-function-name (name)
!   (if (and (symbolp name) (not (null name)))
      name
      (if (setf-function-name-p name)
        (setf-function-name (cadr name))

I haven’t actually tested this (redefining validate-function-name on a running CCL leads to bootstrapping issues, don’t know how to avoid that).

When I launch wx86cl64 (version 1.11-r16635 (WindowsX8664)) I get the usual CL prompt, but when I (quit) the command line is not restored to a prompt (i.e. >). I can't input any other keyboard commands after exiting, it appears that the prompt is frozen.