Description: <short summary of the patch>
 TODO: Put a short summary on the line above and replace this paragraph
 with a longer explanation of this change. Complete the meta-information
 with other relevant fields (see below for details). To make it easier, the
 information below has been extracted from the changelog. Adjust it or drop
 it.
 .
 gcl (2.6.12-131) unstable; urgency=medium
 .
   * Version_2.6.13pre131
Author: Camm Maguire <camm@debian.org>

---
The information above should follow the Patch Tagging Guidelines, please
checkout https://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: (upstream|backport|vendor|other), (<patch-url>|commit:<commit-id>)
Bug: <upstream-bugtracker-url>
Bug-Debian: https://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: (no|not-needed|<patch-forwarded-url>)
Applied-Upstream: <version>, (<commit-url>|commit:<commid-id>)
Reviewed-By: <name and email of someone who approved/reviewed the patch>
Last-Update: 2022-12-17

--- gcl-2.6.12.orig/cmpnew/gcl_cmpspecial.lsp
+++ gcl-2.6.12/cmpnew/gcl_cmpspecial.lsp
@@ -40,8 +40,8 @@
   (when (endp args) (too-few-args 'eval-when 1 0))
   (dolist** (situation (car args) (c1nil))
     (case situation
-          (eval (return-from c1eval-when (c1progn (cdr args))))
-          ((load compile))
+          ((eval :execute) (return-from c1eval-when (c1progn (cdr args))))
+          ((load :load-toplevel compile  :compile-toplevel))
           (otherwise
            (cmperr "The situation ~s is illegal." situation))))
   )
--- gcl-2.6.12.orig/configure
+++ gcl-2.6.12/configure
@@ -7736,6 +7736,10 @@ then :
 printf "%s\n" "#define ANSI_COMMON_LISP 1" >>confdefs.h
 
 	       fi
+else $as_nop
+
+printf "%s\n" "#define ANSI_COMMON_LISP 1" >>confdefs.h
+
 fi
 
 
--- gcl-2.6.12.orig/configure.in
+++ gcl-2.6.12/configure.in
@@ -1555,7 +1555,8 @@ AC_ARG_ENABLE([ansi],[  --enable-ansi bu
 		   CLSTANDARD=CLtL1
 	       else
 	           AC_DEFINE([ANSI_COMMON_LISP],[1],[ANSI compliant image])
-	       fi])
+	       fi],
+	       [AC_DEFINE([ANSI_COMMON_LISP],[1],[ANSI compliant image])])
 
 FLISP="saved_$SYSTEM"
 AC_SUBST(FLISP)
--- gcl-2.6.12.orig/git.tag
+++ gcl-2.6.12/git.tag
@@ -1,2 +1,2 @@
-"Version_2_6_13pre130"
+"Version_2_6_13pre131"
 
--- gcl-2.6.12.orig/pcl/gcl_pcl_defs.lisp
+++ gcl-2.6.12/pcl/gcl_pcl_defs.lisp
@@ -536,16 +536,13 @@
   ;; name       supers     subs                     cdr of cpl
   ;; prototype
   '(;(t         ()         (number sequence array character symbol) ())
-    (number     (t)        (complex float rational) (t))
-    (complex    (number)   ()                       (number t)
-     #c(1 1))
-    (float      (number)   ()                       (number t)
-     1.0)
-    (rational   (number)   (integer ratio)          (number t))
-    (integer    (rational) ()                       (rational number t)
-     1)
-    (ratio      (rational) ()                       (rational number t)
-     1/2)
+    (number     (t)        (complex real)           (t))
+    (real       (number)   (float rational)         (number t))
+    (complex    (number)   ()                       (number t) #c(1 1))
+    (float      (real)     ()                       (real number t)  1.0)
+    (rational   (real)     (integer ratio)          (real number t))
+    (integer    (rational) ()                       (rational real number t) 1)
+    (ratio      (rational) ()                       (rational real number t) 1/2)
 
     (sequence   (t)        (list vector)            (t))
     (list       (sequence) (cons null)              (sequence t))
--- gcl-2.6.12.orig/pcl/gcl_pcl_methods.lisp
+++ gcl-2.6.12/pcl/gcl_pcl_methods.lisp
@@ -693,7 +693,8 @@
     standard-object structure-object)   ;                         or symbol
    (number array character symbol	; direct subclasses of t, but not sequence
     standard-object structure-object)
-   (complex float rational)		; direct subclasses of number
+   (complex real)		        ; direct subclasses of number
+   (float rational)		        ; direct subclasses of real
    (integer ratio)			; direct subclasses of rational
    (list vector)			; direct subclasses of sequence
    (cons null)				; direct subclasses of list
