To: clos@graco.c.u-tokyo.ac.jp
Subject: using CLOS
Date: Sun, 03 Nov 1996 16:50:19 +0900
From: MASUHARA Hidehiko <masuhara-spam@graco.c.u-tokyo.ac.jp>

外文輪講のみなさま、

遅くなりましたが、ECC 駒場のマシンで CLOS を使う方法を書きま
すので参考にして下さい。

(1) ~masuahra/.cmucl-init.lisp を自分のホームにコピー
(2) cmulisp

以上です。

ほとんど確認していないので、変なことが起きる可能性は多少あり
ますので、そのときは連絡して下さい。また、デバッグのやり方等、
分からないことがあったら聞いて下さい。

増原

〜〜使用例〜〜

xss51:~% pwd
/home/masuhara
xss51:~% cat .cmucl-init.lisp
;; Create a PCL-USER package in order to use PCL functions.
;; To use PCL package, some function names that are interned
;; in the CL package should be `shadowed' by importing from the
;; PCL package before it `uses' the CL package.
(defpackage "PCL-USER"
  (:shadowing-import-from "PCL" 
     ;; following names conflict with CL package
     "CLASS-OF" "CLASS-NAME" "BUILT-IN-CLASS"
     "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS"
     "FIND-CLASS")
  (:use "PCL" "CL" "EXTENSIONS"))
(in-package "PCL-USER")
xss51:~% cmulisp
; Loading #p"/a/fs03/export/home16/masuhara/.cmucl-init.lisp".
CMU Common Lisp 17f, running on xss51.komaba.ecc.u-tokyo.ac.jp
Send bug reports and questions to your local CMU CL maintainer, or to
cmucl-bugs@cs.cmu.edu.
Loaded subsystems:
    Python 1.0, target SPARCstation/Sun 4
    CLOS based on PCL version:  September 16 92 PCL (f)
* (defclass point () (x y))

#<STANDARD-CLASS POINT {7016C3D}>
* (make-instance 'point)

#<POINT {701AAFD}>
* (quit)
xss51:~% 
〜〜〜〜〜〜