| -rw-r--r-- | gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp | 2 |
diff --git a/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp b/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp index 85c4d4269..b541be6b8 100644 --- a/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp +++ b/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp @@ -84,7 +84,7 @@ static object cclosure_env_nthcdr (fixnum n,object cc) { env=env->c.c_cdr;} return env;} else - {if(n>=fix(*(turbo-1)))return Cnil; + {if(n>=*(fixnum *)(turbo-1))return Cnil; return turbo[n];} }") |