File: pclload.lisp

package info (click to toggle)
gcl 2.6.14-21
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 60,864 kB
  • sloc: ansic: 177,407; lisp: 151,509; asm: 128,169; sh: 22,510; cpp: 11,923; tcl: 3,181; perl: 2,930; makefile: 2,360; sed: 334; yacc: 226; lex: 95; awk: 30; fortran: 24; csh: 23
file content (12 lines) | stat: -rw-r--r-- 408 bytes parent folder | download | duplicates (15) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(in-package "PCL")
(unless (find-package "SLOT-ACCESSOR-NAME")
  (make-package "SLOT-ACCESSOR-NAME"))
(rename-package "PCL" "PCL" '("OLD-PCL"))
(rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME"
		'("OLD-SLOT-ACCESSOR-NAME"))
(import 'kernel:funcallable-instance-p)
(load "target:pcl/defsys")
(load-pcl)
(rename-package "PCL" "PCL" '())
(rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME" '())