Custom Query (1030 matches)

? (defclass test () ())
? (defmethod make-instance :around ((a standard-class) &rest args) (inspect (call-next-method)))
? (make-instance 'test)
Segfault

I am reposting this message from Lispforum, because the problem appears to be specific to Clozure CL.

I have a problem with a program I have written that parses files for the game "Morrowind".

If interested the repository is at ​http://bitbucket.org/eeeickythump/esper/

Basically the problem is with filenames that have a single quote in them. Clozure's pathname functions seem to insist on mangling these filenames by removing the quote (which is a perfectly legal character in Windows filesystems).

Using Clozure CL 1.4 on WinXP:

CL-USER> (probe-file "c:/Morrowind/Data Files/Beryl's_Head_Replacer_v1.0.esm")  ; this is the actual filename
NIL
CL-USER> (probe-file #p"c:/Morrowind/Data Files/Beryl's_Head_Replacer_v1.0.esm")
NIL
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl's_Head_Replacer_v1.0.esm")
#P"c:/Morrowind/Data Files/Beryls_Head_Replacer_v1'.0.esm"    ; note the mangling of single quotes
CL-USER> (probe-file *)
NIL
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl\'s_Head_Replacer_v1.0.esm")
#P"c:/Morrowind/Data Files/Beryls_Head_Replacer_v1'.0.esm"
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl\\'s_Head_Replacer_v1.0.esm")
#P"c:/Morrowind/Data Files/Beryl/s_Head_Replacer_v1'.0.esm"
CL-USER> (pathname "c:/Morrowind/Data Files/Beryl''s_Head_Replacer_v1.0.esm")   ; try 2 quotes
#P"c:/Morrowind/Data Files/Beryl''s_Head_Replacer_v1'.0.esm"    ; this fails too

I've had to release a version of the program that asks the users to rename any files with apostrophes in their names. This is rather embarrassing for someone who is trying to advocate common lisp as the best programming language around!

Can someone enlighten me as to how I can get clozure to recognise these filenames?

Apparent code generation bug in the 32-bit port (on Linux).

(defun foo (a)
  (declare (type (simple-array single-float (10)) a))
  (setf (aref a 0) (aref a 1)))

> Error: Unknown vinsn: CCL::SINGLE-FLOAT-BITS
> While executing: CCL::NEED-VINSN-TEMPLATE, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.