remove ldb1 - gcl.git - GNU Common Lisp

diff --git a/gcl/cmpnew/gcl_cmpfun.lsp b/gcl/cmpnew/gcl_cmpfun.lsp
index d1184a8cc..5d56373f9 100755
--- a/gcl/cmpnew/gcl_cmpfun.lsp
+++ b/gcl/cmpnew/gcl_cmpfun.lsp

@@ -615,22 +615,6 @@

;; (si:putprop 'shift>> "Lash" 'lfun)

;; (si:putprop 'shift<< "Lash" 'lfun)

-(si::putprop 'ldb 'co1ldb 'co1)

-

-(defun co1ldb (f args &aux tem (len (integer-length most-positive-fixnum)))

- (declare (ignore f))

- (let ((specs

- (cond ((and (consp (setq tem (first args)))

- (eq 'byte (car tem))

- (cons (second tem) (third tem)))))))

- (cond ((and (integerp (cdr specs))

- (integerp (car specs))

- (< (+ (car specs)(cdr specs))

- len)

- (type>= #tfixnum (result-type (second args))))

- (c1expr `(the fixnum (si::ldb1 ,(car specs) ,(cdr specs) ,(second args))))))))

-

-

;; (si:putprop 'length 'c1length 'c1)

;; (defun c1length (args &aux (info (make-info)))

diff --git a/gcl/o/main.c b/gcl/o/main.c
index 16800824a..5312e3efa 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c

@@ -1099,10 +1099,6 @@ DEFUN("GCL-COMPILE-TIME",object,fSgcl_compile_time,SI,0,0,NONE,OO,OO,OO,OO,(void

RETURN1 (make_simple_string(__DATE__ " " __TIME__));

}

-DEFUN("LDB1",object,fSldb1,SI,3,3,NONE,OI,II,OO,OO,(fixnum a,fixnum b, fixnum c),"") {

- RETURN1 (make_fixnum(((((~(-1 << (a))) << (b)) & (c)) >> (b))));

-}

-

DEFUN("LISP-IMPLEMENTATION-VERSION",object,fLlisp_implementation_version,LISP,0,0,NONE,OO,OO,OO,OO,(void),"") {

RETURN1((make_simple_string(LISP_IMPLEMENTATION_VERSION)));

}