Привет всем. Когда ввожу: (ql:quickload «cl-opengl»), получаю кучу ошибок. В чём проблема? Помогите разобраться.
Вот весь сеанс:
sergey@n100:~$ sbcl --load ~/quicklisp/setup.lisp 
This is SBCL 1.1.1.0.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (ql:quickload "cl-opengl")
To load "cl-opengl":
  Load 1 ASDF system:
    cl-opengl
; Loading "cl-opengl"
; file: /home/sergey/quicklisp/dists/quicklisp/software/babel-20130312-git/src/enc-unicode.lisp
; in: DEFINE-UTF-16 :UTF-16
;     (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UTF-16 :UTF-16))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
; in: DEFINE-UTF-16 :UTF-16LE
;     (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16LE :LE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UTF-16 :UTF-16LE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
; in: DEFINE-UTF-16 :UTF-16BE
;     (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16BE :BE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UTF-16 :UTF-16BE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
.
; in: DEFINE-UCS :UTF-32
;     (BABEL-ENCODINGS::DEFINE-UCS :UTF-32 4)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UTF-32 ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
; in: DEFINE-UCS :UTF-32LE
;     (BABEL-ENCODINGS::DEFINE-UCS :UTF-32LE 4 :LE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UTF-32LE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
; in: DEFINE-UCS :UTF-32BE
;     (BABEL-ENCODINGS::DEFINE-UCS :UTF-32BE 4 :BE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UTF-32BE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
; in: DEFINE-UCS :UCS-2
;     (BABEL-ENCODINGS::DEFINE-UCS :UCS-2 2 NIL 65536)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UCS-2 ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
; in: DEFINE-UCS :UCS-2LE
;     (BABEL-ENCODINGS::DEFINE-UCS :UCS-2LE 2 :LE 65536)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UCS-2LE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
; in: DEFINE-UCS :UCS-2BE
;     (BABEL-ENCODINGS::DEFINE-UCS :UCS-2BE 2 :BE 65536)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UCS-2BE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).
debugger invoked on a ASDF:COMPILE-ERROR in thread
#<THREAD "main thread" RUNNING {AB16861}>:
  Error while invoking #<COMPILE-OP (:VERBOSE NIL) {AE7E6C9}> on
  #<CL-SOURCE-FILE "babel" "src" "enc-unicode">
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY ] Retry compiling #<CL-SOURCE-FILE "babel" "src" "enc-unicode">.
  1: [ACCEPT] Continue, treating
              compiling #<CL-SOURCE-FILE "babel" "src" "enc-unicode"> as having
              been successful.
  2: [ABORT ] Give up on "cl-opengl"
  3:          Exit debugger, returning to top level.
((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
 #<unavailable argument>
 #<unavailable argument>
 #<ASDF:COMPILE-OP (:VERBOSE NIL) {AE7E6C9}>
 #<ASDF:CL-SOURCE-FILE "babel" "src" "enc-unicode">)
0] 
Как я понял, тут что-то не то с кодировкой.

