mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
10 lines
390 B
Common Lisp
10 lines
390 B
Common Lisp
(with-test (:name :many-packages) ; was blowing up in fun-name-hashset
|
|
(with-scratch-file (sourcefile "lisp")
|
|
(with-open-file (out sourcefile :direction :output)
|
|
(dotimes (i 1200)
|
|
(format out "(defpackage #:pkg~d (:use #:cl))
|
|
(in-package #:pkg~d)
|
|
(defun initme () ~d)~%" i i i)))
|
|
(with-scratch-file (fasl "fasl")
|
|
(compile-file sourcefile :output-file fasl))))
|