Attachment #52343 for bug #75754

View | Details | Raw Unified | Return to bug 75754
Collapse All | Expand All





(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)))

Lines 29-34 Link Here

(-)cm-2.4.2.orig/src/pkg.lisp (-2 / +3 lines)
29	(:shadow :make-load-form	29	(:shadow :make-load-form
30	;; have to block these from CLM	30	;; have to block these from CLM
31	:io :ran :exit :quit )	31	:io :ran :exit :quit )
		32	(:shadow :warning )
32	;; use keywords instead of strings for case sensitive lisps.	33	;; use keywords instead of strings for case sensitive lisps.
33	(:import-from :clm	34	(:import-from :clm
34	:mus-next	35	:mus-next
Lines 84-88 Link Here
84	:SetParamPlayer :SetTempoPlayer	85	:SetParamPlayer :SetTempoPlayer
85	:TicksPerQuarterNote	86	:TicksPerQuarterNote
86	:SetSynchroInPlayer :MidiNewMidiFileInfos	87	:SetSynchroInPlayer :MidiNewMidiFileInfos
87	:MidiFileLoad :MidiFileSave :mf-clicks :mf-format :mf-timedef)	88	:MidiFileLoad :MidiFileSave :mf-clicks :mf-format :mf-timedef))
88	)	89

Return to bug 75754

Line 0 Link Here

(-)cm-2.4.2.orig/cm.asd (+40 lines)
	1
	2	(defpackage #:cm-system
	3	(:use #:asdf
	4	#:common-lisp))
	5
	6	(in-package #:cm-system)
	7
	8	(defsystem #:cm
	9	:components ((:module :src
	10	:components ((:file "clm-stubs")
	11	(:file "cmn-stubs")
	12	(:module :midishare
	13	:components ((:file "midishare-stubs")))
	14	(:file "pkg")
	15	#+cmu (:file "cmu")
	16	#+clisp (:file "clisp")
	17	(:file "clos")
	18	(:file "iter")
	19	(:file "level1")
	20	(:file "scheme")
	21	(:file "utils")
	22	(:file "mop")
	23	(:file "objects")
	24	(:file "data")
	25	(:file "scales")
	26	(:file "spectral")
	27	(:file "patterns")
	28	(:file "io")
	29	(:file "scheduler")
	30	(:file "sco")
	31	(:file "clm")
	32	(:file "clm2")
	33	(:file "midi1")
	34	(:file "midi2")
	35	(:file "midi3")
	36	(:module :midishare
	37	:components ((:file "midishare")
	38	(:file "player")))
	39	(:file "cmn"))
	40	:serial t)))