Skip to content
Snippets Groups Projects
Commit 24df9438 authored by layer's avatar layer
Browse files

see changelog for Mon May 5 15:33

parent a3e08923
No related branches found
No related tags found
No related merge requests found
...@@ -11,6 +11,15 @@ Tests for new features: <`no new features', `no tests for new features', or ...@@ -11,6 +11,15 @@ Tests for new features: <`no new features', `no tests for new features', or
<standard changelog date stamp> <standard changelog date stamp>
* <changes go here...> * <changes go here...>
*******************************************************************************
Mon May 5 15:33:46 1997 Kevin Layer <layer@ultra>
* Makefile.defs: use ../src/lisp -I ... instead of ../src/dcl
* Makefile.generic: fix typo
* tk/load-ol.lisp: conditionalize for 5.0 ffi
* tk/load-xm.lisp: conditionalize for 5.0 ffi
* tk/make-classes.lisp: conditionalize for 5.0 ffi
******************************************************************************* *******************************************************************************
Thu Apr 24 10:30:00 EST 1997 Paul Robertson <probertson@doll.com> Thu Apr 24 10:30:00 EST 1997 Paul Robertson <probertson@doll.com>
......
# $Header: /repo/cvs.copy/clim2/Makefile.defs,v 1.39 1997/02/05 01:41:52 tomj Exp $ # $Header: /repo/cvs.copy/clim2/Makefile.defs,v 1.40 1997/05/05 22:35:16 layer Exp $
# #
# Makefile.defs for CLIM 2.0 # Makefile.defs for CLIM 2.0
# #
CL = ../src/dcl CL = ../src/lisp -I ../src/dcl.dxl
CLOPTS = -qq -batch -backtrace-on-error CLOPTS = -qq -batch -backtrace-on-error
DEVICE = /dev/null DEVICE = /dev/null
......
# $Header: /repo/cvs.copy/clim2/Makefile.generic,v 1.39 1997/02/05 01:41:54 tomj Exp $ # $Header: /repo/cvs.copy/clim2/Makefile.generic,v 1.40 1997/05/05 22:35:16 layer Exp $
# #
# Makefile.generic for CLIM 2.0 # Makefile.generic for CLIM 2.0
# #
...@@ -23,8 +23,9 @@ compile: FORCE $(PRODUCT-OBJS) $(ICS-PRODUCT-OBJS) ...@@ -23,8 +23,9 @@ compile: FORCE $(PRODUCT-OBJS) $(ICS-PRODUCT-OBJS)
(setq sys::*libwnn-pathname* \"$(WNNLIB)\") \ (setq sys::*libwnn-pathname* \"$(WNNLIB)\") \
(load \"misc/compile-1.lisp\") \ (load \"misc/compile-1.lisp\") \
(proclaim '(optimize (speed $(SPEED)) (debug $(DEBUG)) (safety $(SAFETY)))) \ (proclaim '(optimize (speed $(SPEED)) (debug $(DEBUG)) (safety $(SAFETY)))) \
(let ((*compile-print $(COMPILE_PRINT)) \ (let ((*compile-print* $(COMPILE_PRINT)) \
(*compile-verbose* t) \ (*compile-verbose* t) \
(setf (sys:gsgc-switch :print) nil) \
(excl:*redefinition-warnings* t) \ (excl:*redefinition-warnings* t) \
(excl:*record-source-file-info* $(RECORD_SOURCE_FILE_INFO)) \ (excl:*record-source-file-info* $(RECORD_SOURCE_FILE_INFO)) \
(excl:*load-source-file-info* $(LOAD_SOURCE_FILE_INFO)) \ (excl:*load-source-file-info* $(LOAD_SOURCE_FILE_INFO)) \
......
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
;; Commercial Software developed at private expense as specified in ;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable. ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
;; ;;
;; $Header: /repo/cvs.copy/clim2/tk/load-ol.lisp,v 1.29 1997/02/05 01:52:47 tomj Exp $ ;; $Header: /repo/cvs.copy/clim2/tk/load-ol.lisp,v 1.30 1997/05/05 22:35:17 layer Exp $
(in-package :user) (in-package :user)
...@@ -28,7 +28,8 @@ ...@@ -28,7 +28,8 @@
(defvar sys::*toolkit-shared* nil) (defvar sys::*toolkit-shared* nil)
(unless (ff:get-entry-point (ff:convert-to-lang "ol_appl_add_item") (unless (ff:get-entry-point (ff:convert-to-lang "ol_appl_add_item")
:note-shared-library-references nil) #-(version>= 5 0) :note-shared-library-references
#-(version>= 5 0) nil)
(load "clim2:;climol.so") (load "clim2:;climol.so")
(setq sys::*toolkit-shared* t))) (setq sys::*toolkit-shared* t)))
......
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
;; Commercial Software developed at private expense as specified in ;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable. ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
;; ;;
;; $Header: /repo/cvs.copy/clim2/tk/load-xm.lisp,v 1.39 1997/02/05 01:52:49 tomj Exp $ ;; $Header: /repo/cvs.copy/clim2/tk/load-xm.lisp,v 1.40 1997/05/05 22:35:17 layer Exp $
(in-package :user) (in-package :user)
...@@ -25,7 +25,8 @@ ...@@ -25,7 +25,8 @@
#+dlfcn #+dlfcn
(unless (ff:get-entry-point (ff:convert-to-lang "XmCreateMyDrawingArea") (unless (ff:get-entry-point (ff:convert-to-lang "XmCreateMyDrawingArea")
:note-shared-library-references nil) #-(version>= 5 0) :note-shared-library-references
#-(version>= 5 0) nil)
(let ((ff::*dlopen-mode* (excl:ics-target-case (let ((ff::*dlopen-mode* (excl:ics-target-case
(:+ics #x102) (:+ics #x102)
(:-ics ff::*dlopen-mode*)))) (:-ics ff::*dlopen-mode*))))
......
;; -*- mode: common-lisp; package: tk -*- ;; -*- mode: common-lisp; package: tk -*-
;; ;;
;; -[Thu Dec 7 14:49:13 1995 by duane]- ;; -[Mon May 5 15:33:02 1997 by layer]-
;; ;;
;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved. ;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved.
;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA All rights reserved. ;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA All rights reserved.
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
;; Commercial Software developed at private expense as specified in ;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable. ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
;; ;;
;; $Header: /repo/cvs.copy/clim2/tk/make-classes.lisp,v 1.44 1997/02/05 01:52:52 tomj Exp $ ;; $Header: /repo/cvs.copy/clim2/tk/make-classes.lisp,v 1.45 1997/05/05 22:35:17 layer Exp $
(in-package :tk) (in-package :tk)
...@@ -27,7 +27,8 @@ ...@@ -27,7 +27,8 @@
(let ((ep #-dlfcn (ff:get-extern-data-address x) (let ((ep #-dlfcn (ff:get-extern-data-address x)
#+dlfcn (ff:get-entry-point #+dlfcn (ff:get-entry-point
x x
:note-shared-library-references nil))) #-(version>= 5 0) :note-shared-library-references
#-(version>= 5 0) nil)))
(unless ep (error "Entry point ~S not found" x)) (unless ep (error "Entry point ~S not found" x))
(class-array ep 0))) (class-array ep 0)))
......
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