search

sharplispers / clx

a fork of crhodes' fork of danb's fork of the CLX library, an X11 client for Common Lisp
Other
114 stars 46 forks source link

Bug in xlib:list-fonts emits function undefined error #113

Closed earl-ducaine closed 5 years ago

earl-ducaine commented 5 years ago

This seems to be related to the other problems with slot accessors. The following lines in list-fonts emits the error: The function (COMMON-LISP:SETF XLIB:FONT-NAME) is undefined.,

           (font
         (make-font
           :display display
           :name nil
           :font-info-internal
           (make-instance 'font-info
             :direction (member8-get 48 :left-to-right :right-to-left)
             :min-char min-char
             :max-char max-char
             :min-byte1 min-byte1
             :max-byte1 max-byte1
             :min-byte2 min-byte2
             :max-byte2 max-byte2
             :all-chars-exist-p (boolean-get 51)
             :default-char (card16-get 44)
             :ascent (int16-get 52)
             :descent (int16-get 54)
             :min-bounds (char-info-get 8)
             :max-bounds (char-info-get 24)
             :properties (sequence-get :length (index* 2 nfont-props)
                           :format int32
                           :result-type 'list
                           :index 60)))))
     (setf (font-name font) (string-get name-len (index+ 60 (index* 2 nfont-props 4))))
      (push font result))
    nil)))
dkochmanski commented 5 years ago

master has been reset