Custom Query (1030 matches)

I think I have a fix for this, just putting it on record in case it turns out to be more complicated:

Welcome to Clozure Common Lisp Version 1.3-dev-r12063  (LinuxX8664)! 
? (defun inner (x &key a) (loop (concatenate x a) (concatenate x a) (concatenate x a))) 
INNER 
? (defun outer (x) (setq x (list (list x) :bogus-key (list (list x) (list x)))) (apply #'inner x) x) 
OUTER 
? (outer 3) 
> Error: Incorrect keyword arguments in (:BOGUS-KEY ((3) (3))) . 
> While executing: INNER, in process listener(1). 
> Type :POP to abort, :R for a list of available restarts. 
> Type :? for other options. 
1 > :b 
 (CA7A78) : 0 (INNER NIL :A NIL) 69 
> Error: value NIL is not of the expected type NUMBER. 
> While executing: CCL::+-2, in process listener(1). 
> Type :POP to abort, :R for a list of available restarts. 
> Type :? for other options. 

From Mikel:

The IDE's Hemlock implements Visit File and binds it to C-x C-v, but its behavior, in context of a Cocoa application, is bizarre. If you use it to choose an existing file, it quite correctly opens the file in the current buffer and window, but without informing the Cocoa app that the file associated with the buffer and window has changed. The result is that Hemlock thinks the file associated with the buffer is at the pathname you just visited, while the IDE thinks it's the file that you originally opened in the window. If these are different files (and they certainly can be), wackiness ensues the next time you decide to save the file. The exact results presumably depend on whether you decide to use C-x C-s or Command-S to save the file.

From #ccl on irc, user ecyrb:

(defmacro mk-arr (type init &optional len)
  "Make array with elements of TYPE, initializing."
  (if len `(make-array ,len :element-type ,type :initial-element ,init)
      `(make-array (length ,init) :element-type ,type
        :initial-contents ,init)))

(eval '(the (simple-array simple-string (2))
            (mk-arr 'simple-string '("Jan" "Feb"))))

;Compiler warnings : 
;   In an anonymous lambda form: Undefined function MK-ARR 
> Error: Special operator or global macro-function MK-ARR can't be FUNCALLed or APPLYed 
> While executing: #<Anonymous Function #x30004112FDDF>, in process listener(1).