Skip to content
Snippets Groups Projects
Commit 1e43c69a authored by smh's avatar smh
Browse files

See ChangeLog.n Tue Dec 6 17:57:45 1994 Steve Haflich

parent 13481dbe
No related branches found
No related tags found
No related merge requests found
------------------------------------------------------------------------
Tue Dec 6 17:57:45 1994 Steve Haflich (smh@vapor)
[Compiled Colin's merge and fix minor editing glitches.
This tree now compiles and runs with devel.27 and dynamic-extent closures
under multiprocessing. Not exhaustively checked.]
sys/sysdcl.lisp Fix parenthesization botch.
tk/make-classes.lisp Fixed lispify-tk-name to handle NIL package.
------------------------------------------------------------
Sun Dec 4 15:51:34 PST 1994 Colin Meldrum (colin@vapor)
......
......@@ -283,15 +283,15 @@
(:default-pathname "clim2:;homegrown;")
(:serial
clim-standalone
clim-silica)
"scroll-pane"
"db-button"
"db-label"
"db-slider"
"db-menu"
("db-list" (:load-before-compile "db-menu"))
"db-text"
"last")
clim-silica
"scroll-pane"
"db-button"
"db-label"
"db-slider"
"db-menu"
("db-list" (:load-before-compile "db-menu"))
"db-text"
"last"))
#+Allegro
......
;; -*- mode: common-lisp; package: tk -*-
;;
;; -[Sun Jun 5 21:07:00 1994 by duane]-
;; -[Tue Dec 6 16:27:07 1994 by smh]-
;;
;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved.
;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA All rights reserved.
......@@ -281,8 +281,10 @@
(push-char (if (<= l cc m)
(code-char (+ cc n))
c)))))
(values
(intern new package)))))
(if package
(values
(intern new package))
new))))
(defun tkify-lisp-name (name &key class)
(setq name (string name))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment