You want to find elements in al list that aren't in bl list. Build a hash of the keys of bl to use as a lookup table. Then check each element in al to see whether it is in bl.
(require (lib"1.ss""srfi"))
;; To find elements that are in the al list but not in the bl list
(define (list-minusalbl)
(let ((h (make-hash-table'equal)))
(for-each (lambda (v)
(hash-table-put!hv#f))
bl)
(filter (lambda (v)
(hash-table-gethv (lambda () #t)))
al)))