Custom Query (1030 matches)

The compiled code for the following function produces pointless mark-as-imm/mark-as-node vinsns. It shouldn't do that.

(defun rme-make-wsp ()
  (let ((str (make-string 6  :element-type 'base-char)))
    (set-schar str 0 #\Space)
    (set-schar str 1 #\^I)
    str))

 vinsns for NIL (after generation)
#<VINSN-LABEL 4>
#<ESTABLISH-FN>
#<CHECK-EXACT-NARGS 0>
#<SAVE-LISP-CONTEXT-NO-STACK-ARGS>
#<0 := LRI 1735>
#<SETUP-UVECTOR-ALLOCATION 0>
#<0 := LRI 26>
#<#<LREG 1 GPR {3}> := %ALLOCATE-UVECTOR>
#<VPUSH-REGISTER #<LREG 1 GPR {3}>>
#<#<LREG 4 GPR [1]> := VFRAME-LOAD 0 4>
#<#<LREG 5 GPR [6]> := LRI 0>
#<#<LREG 7 GPR [3]> := LOAD-CHARACTER-CONSTANT 32>
#<MARK-AS-IMM #<LREG 8 GPR {2}>>
#<TRAP-UNLESS-TYPECODE= #<LREG 4 GPR [1]> 199>
#<CHECK-MISC-BOUND #<LREG 5 GPR [6]> #<LREG 4 GPR [1]>>
#<MARK-AS-NODE #<LREG 8 GPR {2}>>
#<#<LREG 11 GPR {0}> := LRI 32>
#<MARK-AS-IMM #<LREG 12 GPR {2}>>
#<MISC-SET-C-U32 #<LREG 11 GPR {0}> #<LREG 4 GPR [1]> 0>
#<MARK-AS-NODE #<LREG 12 GPR {2}>>
#<#<LREG 14 GPR [1]> := VFRAME-LOAD 0 4>
#<#<LREG 15 GPR [6]> := LRI 4>
#<#<LREG 17 GPR [3]> := LOAD-CHARACTER-CONSTANT 9>
#<MARK-AS-IMM #<LREG 18 GPR {2}>>
#<TRAP-UNLESS-TYPECODE= #<LREG 14 GPR [1]> 199>
#<CHECK-MISC-BOUND #<LREG 15 GPR [6]> #<LREG 14 GPR [1]>>
#<MARK-AS-NODE #<LREG 18 GPR {2}>>
#<#<LREG 21 GPR {0}> := LRI 9>
#<MARK-AS-IMM #<LREG 22 GPR {2}>>
#<MISC-SET-C-U32 #<LREG 21 GPR {0}> #<LREG 14 GPR [1]> 1>
#<MARK-AS-NODE #<LREG 22 GPR {2}>>
#<#<LREG 0 GPR [3]> := VFRAME-LOAD 0 4>
#<POPJ>

c_gethostbyname on Linux is implemented using #_gethostbyname_r. But gethostbyname_r is very strange and it fails to resolve local defined hosts in /etc/hosts and it's also obsolete according to the man page. So I rewrote it using #_getaddrinfo. It seems to work, but when I replace old c_gethostbyname with it, CCL fails on rebuilding complaining about ffi-type. I'm not quite understand mechanisms of CCL's FFI and don't know how to handle this.

So I attach my version of c_gethostbyname, maybe someone could adapt it.

The bug is exhibited in the following test code. To run it save it to a file, load it and then evaluate the TEST-IT function. I have tested this with the binary x8664 version for 1.2-rc1.

Basically I am generating a class called BAR with 600 direct slots which derives from FOO with the BAR-GENERATOR macro. If BAR has 6 slots, then the test case works as it should.

;;; Start of test case

(in-package :cl-user)

(defclass foo ()

((foo-slot :accessor foo-slot)))

(defmacro bar-generator ()

`(defclass bar (foo)

,(loop for i from 0 to 600

for slot = (intern (format nil "BAR-SLOT-~A" i)) collect `(,slot :initform ,i))))

(bar-generator)

(defmethod initialize-instance :after ((x foo) &key)

(setf (foo-slot x) 42))

(defun test-it ()

(make-instance 'bar))

;;; End of test case