Skip to content
Snippets Groups Projects
Commit 822d17c6 authored by layer's avatar layer
Browse files

2.2.2.4

parent 9db9a0fa
No related branches found
No related tags found
No related merge requests found
...@@ -10,6 +10,10 @@ Tests for new features: <`no new features', `no tests for new features', or ...@@ -10,6 +10,10 @@ 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...>
*******************************************************************************
2.2.2.4 -- join from acl50 branch (version 2.2.1.33)
next merge tag: acl50_merge4
******************************************************************************* *******************************************************************************
2.2.2.3 -- join from acl50 branch 2.2.2.3 -- join from acl50 branch
next merge tag: acl50_merge3 next merge tag: acl50_merge3
...@@ -47,6 +51,14 @@ next merge tag: acl50_merge2 ...@@ -47,6 +51,14 @@ next merge tag: acl50_merge2
(this should have been version 2.2.2.0, but was 2.2.1.17 instead) (this should have been version 2.2.2.0, but was 2.2.1.17 instead)
next merge tag: acl50_merge1 next merge tag: acl50_merge1
*******************************************************************************
2.2.1.33
1998-11-03 <layer@HOBART>
* pre-silica/genera-implementation.lisp: remove ^Z character
because it was messing up new version of CVS
******************************************************************************* *******************************************************************************
2.2.1.32 2.2.1.32
......
;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*- ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*-
;; $Id: genera-implementation.lisp,v 1.10 1998/08/06 23:16:52 layer Exp $ ;; $Id: genera-implementation.lisp,v 1.11 1998/11/10 22:03:18 layer Exp $
(in-package :clim-internals) (in-package :clim-internals)
...@@ -1075,7 +1075,7 @@ ...@@ -1075,7 +1075,7 @@
(setq index new-index)) (setq index new-index))
(let ((new-top (box-top (presentation-displayed-box (let ((new-top (box-top (presentation-displayed-box
(aref displayed-strings index))))) (aref displayed-strings index)))))
(when ( new-top y) (when (-control-z-char- new-top y)
(setq y new-top) (setq y new-top)
(loop-finish)))) (loop-finish))))
while (index-ok-p index)) while (index-ok-p index))
......
...@@ -16,7 +16,7 @@ ...@@ -16,7 +16,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.
;; ;;
;; $Id: packages.lisp,v 1.88 1998/10/08 18:36:27 layer Exp $ ;; $Id: packages.lisp,v 1.89 1998/11/10 22:03:20 layer Exp $
(in-package :common-lisp-user) (in-package :common-lisp-user)
...@@ -3315,7 +3315,7 @@ ...@@ -3315,7 +3315,7 @@
(cl:defvar *clim-major-version* 2) (cl:defvar *clim-major-version* 2)
(cl:defvar *clim-minor-version* 2) (cl:defvar *clim-minor-version* 2)
(cl:defvar *clim-generation-version* 2) (cl:defvar *clim-generation-version* 2)
(cl:defvar *clim-build-version* 3) (cl:defvar *clim-build-version* 4)
(cl:defparameter *clim-version* (cl:defparameter *clim-version*
(cl:format () "~d.~d.~d.~a" (cl:format () "~d.~d.~d.~a"
......
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