Can common lisp do THIS?

(define-syntax toaster
(lambda (stx)
(syntax-case stx ()
[(_ x) #'"toasted something"]
[(_) #'"toasted nothing"]
[_ #'"this is a toaster"])))

(display toaster)
(newline)
(display (toaster))
(newline)
(display (toaster a))
(newline)

Scheme wins again.

Symta can, but (display toaster) requires defining toaster through mexlet, which, just like symbol-macrolet in Common Lisp, defines local syntatic constant:
toaster @Xs = case Xs
[_ X] | 'toasted something'
[_] | 'toasted nothing'

export \toaster
...

mexlet toaster 'this is a toaster'
| say toaster
| say: toaster
| say: toaster a