File: package-ctor-bug.lisp

package info (click to toggle)
sbcl 1%3A0.9.16.0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 19,960 kB
  • ctags: 16,537
  • sloc: lisp: 231,164; ansic: 19,558; asm: 2,539; sh: 1,925; makefile: 308
file content (11 lines) | stat: -rw-r--r-- 217 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
(defpackage "PACKAGE-CTOR-BUG"
  (:use "CL")
  (:export "TEST"))

(in-package "PACKAGE-CTOR-BUG")

(defclass fooass ()
  ((flot :initarg :flot :reader flot)))

(defun test ()
  (flot (make-instance 'fooass :flot 3)))