LINUX.ORG.RU

clim-listener

 


0

1

У кого нибуть случалось такое:

(ql:quickload '(mcclim clim-listener))


The function :USE is undefined.
   [Condition of type UNDEFINED-FUNCTION]


CL-USER> (ql:quickload :clim-listener)
To load "clim-listener":
  Load 1 ASDF system:
    clim-listener
; Loading "clim-listener"
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
(:CLIM-LISTENER)

это что-то страшное?

Ответ на: комментарий от turtle_bazon

А может баг здесь

package.lisp

(defpackage :clim
  (:use)             <-------------- без аргумента
  ;;
  (:import-from :clim-lisp
   #:and 
   #:boolean 
   #:character 
   #:close 
   #:complex 
   #:float 
   #:fundamental-binary-input-stream 
   #:fundamental-binary-output-stream 
   #:fundamental-binary-stream 
   #:fundamental-character-input-stream 
   #:fundamental-character-output-stream 
   #:fundamental-character-stream 
   #:fundamental-input-stream 
   #:fundamental-output-stream 
   #:fundamental-stream 
   #:input-stream-p 
   #:integer 
   #:interactive-stream-p 
   #:keyword 
   #:member
   #:nil
   #:null 
   #:number 
   #:open-stream-p 
   #:or 
   #:output-stream-p 
   #:pathname 
   #:ratio 
   #:rational 
   #:real 
   #:sequence 
   #:stream-advance-to-column 
   #:stream-clear-input
   #:stream-clear-output
   #:stream-element-type 
   #:stream-finish-output 
   #:stream-force-output 
   #:stream-fresh-line 
   #:stream-line-column 
   #:stream-listen 
   #:stream-peek-char 
   #:stream-read-byte 
   #:stream-read-char 
   #:stream-read-char-no-hang 
   #:stream-read-line 
   #:stream-start-line-p 
   #:stream-terpri 
   #:stream-unread-char 
   #:stream-write-byte 
   #:stream-write-char 
   #:stream-write-string 
   #:streamp 
   #:string 
   #:symbol 
   #:t)
saufesma ()
Ответ на: комментарий от turtle_bazon

Попробовал так

CL-USER> (asdf:operate 'asdf:load-op :clim-listener)
WARNING:
   compiling #<STATIC-FILE "uiop" "contrib/debug.lisp"> completed without its input file #P"/home/igor/quicklisp/dists/quicklisp/software/uiop-3.3.2/contrib/debug.lisp"
WARNING:
   loading #<STATIC-FILE "uiop" "contrib/debug.lisp"> completed without its input file #P"/home/igor/quicklisp/dists/quicklisp/software/uiop-3.3.2/contrib/debug.lisp"


The function :USE is undefined.
   [Condition of type UNDEFINED-FUNCTION]

saufesma ()
Ответ на: комментарий от turtle_bazon

Надо так:)

* (defpackage #:B (:use))

#<PACKAGE "B">
* (in-package "B")

#<COMMON-LISP:PACKAGE "B">
* (defpackage :C (:use))

debugger invoked on a COMMON-LISP:UNDEFINED-FUNCTION in thread
#<THREAD "main thread" RUNNING {9021329}>:
  The function :USE is undefined.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

antares0 ★★★ ()
Ответ на: комментарий от antares0

вполне разумно. мы находимся в пакете «B» и пытаемся выполнить функцию defpackage, но сначала надо вычислить аргументы. первый аргумент ":C" - самовычислился, а на втором "(:use)" произошел облом - нет в пакете «B» такой функции.

anonymous ()
Ответ на: комментарий от turtle_bazon

У меня с sbcl всё нормально загрузилось.

Переделал

(defpackage :clim
  ;;(:use)             <-------------- вот так работает
  ;;
  (:import-from :clim-lisp
   #:and 
   #:boolean 
   #:character 
   #:close 
   #:complex 
   #:float 
   #:fundamental-binary-input-stream 
   #:fundamental-binary-output-stream 
   #:fundamental-binary-stream 
   #:fundamental-character-input-stream 
   #:fundamental-character-output-stream 
   #:fundamental-character-stream 
   #:fundamental-input-stream 
   #:fundamental-output-stream 
   #:fundamental-stream 
   #:input-stream-p 
   #:integer 
   #:interactive-stream-p 
   #:keyword 
   #:member
   #:nil
   #:null 
   #:number 
   #:open-stream-p 
   #:or 
   #:output-stream-p 
   #:pathname 
   #:ratio 
   #:rational 
   #:real 
   #:sequence 
   #:stream-advance-to-column 
   #:stream-clear-input
   #:stream-clear-output
   #:stream-element-type 
   #:stream-finish-output 
   #:stream-force-output 
   #:stream-fresh-line 
   #:stream-line-column 
   #:stream-listen 
   #:stream-peek-char 
   #:stream-read-byte 
   #:stream-read-char 
   #:stream-read-char-no-hang 
   #:stream-read-line 
   #:stream-start-line-p 
   #:stream-terpri 
   #:stream-unread-char 
   #:stream-write-byte 
   #:stream-write-char 
   #:stream-write-string 
   #:streamp 
   #:string 
   #:symbol 
   #:t)
saufesma ()