[CM] cm + portmidi, today's svn (rev 1500)

[Fernando Lopez-Lezcano]

Oh well... I'm giving up for now, don't know what I'm doing wrong. See
the results below. Components, cm svn revision 1500, portmidi 2.0.2,
cffi 070221, rts 2.0.1. 

-- Fernando


$ sbcl
This is SBCL 1.0.9, 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.
* (load "cm/src/cm.lisp")

;; loading #P"/usr/lib/sbcl/sb-posix/sb-posix.asd"
; loading system definition from /usr/lib/sbcl/sb-grovel/sb-grovel.asd
into
; #<PACKAGE "ASDF1">
;;; loading #P"/usr/lib/sbcl/sb-grovel/sb-grovel.asd"
; registering #<SYSTEM SB-GROVEL {AE1CC99}> as SB-GROVEL
;;; loading #P"/usr/lib/sbcl/sb-grovel/defpackage.fasl"
;;; loading #P"/usr/lib/sbcl/sb-grovel/def-to-lisp.fasl"
;;; loading #P"/usr/lib/sbcl/sb-grovel/foreign-glue.fasl"
;; loading #P"/usr/lib/sbcl/sb-posix/defpackage.fasl"
;; loading #P"/usr/lib/sbcl/sb-posix/designator.fasl"
;; loading #P"/usr/lib/sbcl/sb-posix/macros.fasl"
;; loading #P"/usr/lib/sbcl/sb-posix/constants.fasl"
;; loading #P"/usr/lib/sbcl/sb-posix/interface.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/sb-bsd-sockets.asd"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/defpackage.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/split.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/constants.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/sockets.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/sockopt.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/inet.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/local.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/name-service.fasl"
;; loading #P"/usr/lib/sbcl/sb-bsd-sockets/misc.fasl"
; CM install directory: /zap/test/cm/
; Loading pkg.fasl
; Loading sbcl.fasl
; Loading iter.fasl
; Loading level1.fasl
; Loading clos.fasl
; Loading scheme.fasl
; Loading utils.fasl
; Loading mop.fasl
; Loading objects.fasl
; Loading data.fasl
; Loading scales.fasl
; Loading spectral.fasl
; Loading patterns.fasl
; Loading io.fasl
; Loading scheduler.fasl
; Loading gnuplot.fasl
; Loading plt.fasl
; Loading sco.fasl
; Loading clm.fasl
; Loading midi1.fasl
; Loading midi2.fasl
; Loading midi3.fasl
; Loading cmn.fasl
; Loading fomus.fasl
; Loading midishare.fasl
; Loading player.fasl
; Loading sc.fasl
; Loading pm.fasl
; Loading rt.fasl
; Loading parse.fasl
; Loading sal.fasl
T
* (in-package :cm)

#<PACKAGE "CM">
* (use-system :rts)    

; loading system definition from /zap/test/rts/rts.asd into #<PACKAGE
"ASDF0">
; loading #P"/zap/test/rts/rts.asd"
; registering #<SYSTEM :RTS {B3FAFD9}> as RTS
; loading system definition from /zap/test/cffi/cffi.asd into #<PACKAGE
"ASDF0">
; loading #P"/zap/test/cffi/cffi.asd"
; registering #<SYSTEM CFFI {B550141}> as CFFI
; loading #P"/zap/test/cffi/src/utils.fasl"
; loading #P"/zap/test/cffi/src/features.fasl"
; loading #P"/zap/test/cffi/src/cffi-sbcl.fasl"
; loading #P"/zap/test/cffi/src/package.fasl"
; loading #P"/zap/test/cffi/src/libraries.fasl"
; loading #P"/zap/test/cffi/src/early-types.fasl"
; loading #P"/zap/test/cffi/src/types.fasl"
; loading #P"/zap/test/cffi/src/enum.fasl"
; loading #P"/zap/test/cffi/src/strings.fasl"
; loading #P"/zap/test/cffi/src/functions.fasl"
; loading #P"/zap/test/cffi/src/foreign-vars.fasl"
; loading #P"/zap/test/rts/cffi-scheduler.fasl"
; loading #P"/zap/test/rts/cm-scheduler.fasl"
#<ASDF:SYSTEM "rts" {B3FAFD9}>
* (use-system :portmidi)

; loading system definition from /zap/test/portmidi/portmidi.asd into
; #<PACKAGE "ASDF0">
; loading #P"/zap/test/portmidi/portmidi.asd"
; registering #<SYSTEM :PORTMIDI {B5E4459}> as PORTMIDI
; loading #P"/zap/test/portmidi/cffi-portmidi.fasl"
#<ASDF:SYSTEM "portmidi" {B5E4459}>
* (pprint (pm:GetDeviceInfo ))

((:ID 0 :NAME "Midi Through Port-0" :TYPE :OUTPUT :OPEN NIL)
 (:ID 1 :NAME "Midi Through Port-0" :TYPE :INPUT :OPEN NIL)
 (:ID 2 :NAME "Gina3G" :TYPE :OUTPUT :OPEN NIL)
 (:ID 3 :NAME "Gina3G" :TYPE :INPUT :OPEN NIL)
 (:ID 4 :NAME "Virtual Keyboard" :TYPE :INPUT :OPEN NIL)
 (:ID 5 :NAME "qjackctl" :TYPE :OUTPUT :OPEN NIL)
 (:ID 6 :NAME "input" :TYPE :OUTPUT :OPEN NIL))
* (defparameter pm (portmidi-open :input 1 :output 0))

PM
* (recv pm)

debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial
thread" {A6BA671}>:
  recv for portmidi not loaded.

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

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

((SB-PCL::FAST-METHOD RECV (PORTMIDI-STREAM))
 #<unavailable argument>
 #<unavailable argument>
 #<unavailable argument>)
0]