-
Notifications
You must be signed in to change notification settings - Fork 143
How to load mcclim in clasp
Karsten Poeck edited this page Dec 16, 2020
·
13 revisions
- clasp from master as of 2020-12-16
(require :asdf)
(load "~/quicklisp/setup.lisp")
(ql:quickload "clim-examples" :verbose t)
(mcclim-truetype::autoconfigure-fonts)
- (clim-demo:demodemo)
- or e.g.
- (clim:run-frame-top-level (clim:make-application-frame 'clim-demo::logic-cube))
- (clim:run-frame-top-level (clim:make-application-frame 'calculator-demo::calculator-app))
- (clim:run-frame-top-level (clim:make-application-frame 'clim-demo::address-book))
- make the asd files known:
- (asdf:load-asd (pathname "sys:kernel;contrib;Cleavir;Intermediate-representation;Visualizer;cleavir-ir-visualizer.asd"))
- (asdf:load-asd (pathname "sys:kernel;contrib;Cleavir;Intermediate-representation;cleavir-ir.asd"))
- (asdf:load-asd (pathname "sys:kernel;contrib;Cleavir;Meter;cleavir-meter.asd"))
- (asdf:load-asd (pathname "~/quicklisp/software/mcclim-git/Apps/Inspector/clouseau.asd")) adapt to your directory-structure
- (asdf:load-asd (pathname "sys:kernel;contrib;Cleavir;Intermediate-representation;Hir;cleavir-hir.asd"))
- (ql:quickload "cleavir-ir-visualizer" :verbose t)
- to test
(cl:in-package #:cleavir-ir-visualizer)
(defvar *ast*)
(defvar *hir*)
(setq *ast* (cleavir-generate-ast:generate-ast '(lambda(a) (+ a 1)) clasp-cleavir:*clasp-env* clasp-cleavir:*clasp-system*))
(setq *hir* (cleavir-ast-to-hir:compile-toplevel-unhoisted *ast*))
(cleavir-ir-visualizer:visualize *hir*)