View | Details | Raw Unified
Collapse All | Expand All

(-) cm-2.4.2.orig/cm.asd (+40 lines)
Line 0    Link Here  

            

            

              
              
(defpackage #:cm-system

            

            

              
              
  (:use #:asdf

            

            

              
              
	#:common-lisp))

            

            

              
              

            

            

              
              
(in-package #:cm-system)

            

            

              
              

            

            

              
              
(defsystem #:cm

            

            

              
              
  :components ((:module :src

            

            

              
              
			:components ((:file "clm-stubs")

            

            

              
              
				     (:file "cmn-stubs")

            

            

              
              
				     (:module :midishare

            

            

              
              
					      :components ((:file "midishare-stubs")))

            

            

              
              
				     (:file "pkg")

            

            

              
              
				     #+cmu   (:file "cmu")

            

            

              
              
				     #+clisp (:file "clisp")

            

            

              
              
				     (:file "clos")

            

            

              
              
				     (:file "iter")

            

            

              
              
				     (:file "level1")

            

            

              
              
				     (:file "scheme")

            

            

              
              
				     (:file "utils")

            

            

              
              
				     (:file "mop")

            

            

              
              
				     (:file "objects")

            

            

              
              
				     (:file "data")

            

            

              
              
				     (:file "scales")

            

            

              
              
				     (:file "spectral")

            

            

              
              
				     (:file "patterns")

            

            

              
              
				     (:file "io")

            

            

              
              
				     (:file "scheduler")

            

            

              
              
				     (:file "sco")

            

            

              
              
				     (:file "clm")

            

            

              
              
				     (:file "clm2")

            

            

              
              
				     (:file "midi1")

            

            

              
              
				     (:file "midi2")

            

            

              
              
				     (:file "midi3")

            

            

              
              
				     (:module :midishare

            

            

              
              
					      :components ((:file "midishare")

            

            

              
              
							   (:file "player")))

            

            

              
              
				     (:file "cmn"))

            

            

              
              
			:serial t)))

            



(-) cm-2.4.2.orig/src/pkg.lisp
      (-2 / +3 lines)




  

    

    

       Lines 29-34
       
    
  Link Here 
    

  

        
  (:shadow :make-load-form
  (:shadow :make-load-form

        
           ;; have to block these from CLM
           ;; have to block these from CLM

        
           :io :ran :exit :quit )
           :io :ran :exit :quit )

            

              
              
  (:shadow :warning  )

            

        
  ;; use keywords instead of strings for case sensitive lisps.
  ;; use keywords instead of strings for case sensitive lisps.

        
  (:import-from :clm 
  (:import-from :clm 

        
                :mus-next
                :mus-next

  

    

    

       Lines 84-88
       
    
  Link Here 
    

  

        
		:SetParamPlayer :SetTempoPlayer
		:SetParamPlayer :SetTempoPlayer

        
		:TicksPerQuarterNote
		:TicksPerQuarterNote

        
		:SetSynchroInPlayer :MidiNewMidiFileInfos
		:SetSynchroInPlayer :MidiNewMidiFileInfos

            

              
		:MidiFileLoad :MidiFileSave :mf-clicks :mf-format :mf-timedef)

              
		:MidiFileLoad :MidiFileSave :mf-clicks :mf-format :mf-timedef))

            

            

              
  )